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AP 13 und AP 17 AP 33 

RAM-Karten zum Einsatz als Pseu- RAMDISK der neuen Generation. 
dodisk unter CP/M, USCD und Für besonders speicherintensive 
APPLE-DOS. Speichergröße von Arbeiten ist der Ausbau in Stufen 


64 kByte bis 256 kByte. von 64 kByte bis 1MByte möglich. 
Bestell-Nr.: A 1013 a-b Bestell-Nr. A 1033 
A 1017 a-d 





AP 19 

12-Kanal AD-DA-Wandler mit 12 bit 
Auflösung und 25 u sec Wandlungs- 
zeit. Eingangsspannung +10 V. Ein 
schneller Wandler für extrem 


AP 14 
Floppy-Controller für alle Anwen- 
dungsfälle. 10 Laufwerke können 
gleichzeitig angeschlossen werden. 
4 x 8” DSDD, 4 x 5Va” DSDD und 


zwei Apple-Standardlaufwerke. Rennen PEmeLEn 
Maximal ca. 10MByte im Direktzu- Bestell-Nr.: A 1019 
griff. 


Bestell-Nr.: A 1014 














NEU! 8 MHz Takt 








„gD* jetzt 512 K-RAM 


AP 20 

INTEMEX mit 68 000 CPU und 128 
k-RAM. Diese Karte macht aus Ihrem 
Rechner mit „Applebus” einen ech- 
ten 16 bit-Rechner. Eine Zusatzkarte 
(AP 26) ermöglicht einen Arbeitsspei- 
cher bis zu einem MByte und an Soft- 
ware gibt es einiges. Z.B. stehen drei 
Betriebssysteme und die wichtigsten 
Hochsprachen zur Verfügung. 
Bestell-Nr. A 1020 





AP22 

INTEMEX mit Z 80 B-CPU und 64 
k-RAM. Wenn Sie einmal diese Karte 
in Aktion gesehen haben, werden Sie 
auch feststellen: „Geschwindigkeit 
ist keine Hexerei, man braucht nur 
die AP 22”. Mit dieser Karte wird Ihr 
APPLE II zum z.Z. schnellsten CP/M- 
Computer, und in Verbindung mit 
dem SPACE 84 erhalten Sie Compu- 
terleistung, die wirklich einmalig ist. 
Wir vermitteln gerne eine Vorführung. 
Bestell-Nr. A 1022 


Das Interface-Buch von IBS, ein Buch für Alle, die Ihren APPLE IH oder Kompatiblen 
optimalnutzen wollen. DetaillierteSchaltpläne, Bauteilelisten und Benutzungshinweise 
zu allen IBS-Interfaces finden Sie jetzt in einem Buch vereint. Ausführliche Abhandlun- 


welten aber auch über die Grenzen des APPLE II-Systems bestimmen den Wert dieses 


\ 
So‘ . gen über Spezialschaltungen, über Anwendungsmöglichkeiten, über neue Software- 


Buches. 


Für nur DM 8,00 erhalten Sie dieses Buch ab sofort bei Ihrem Computerfachhändler 
oder für DM 8,00 + DM 2,00 Versandkosten bei IBS COMPUTERVERTRIEB. 
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Der Kopierrecht-Aufsatz im letzten Peeker 
hat eine Fülle telefonischer Anfragen aus- 
gelöst. Insbesondere die 7-Exemplar-Re- 
gelung war vielen Lesern neu. Ich darf hier 
nochmals Prof. Nordemann zitieren: „Es 
dürfen auch hier nur einzelne Kopien, Auf- 
nahmen usw. hergestellt werden... Das 
waren schon nach Ansicht der Bundesre- 
gierung etwa 6 bis 7 Exemplare (so die 
schriftliche Antwort des Bundesministers 
der Justiz vom 16. Juli 1968 auf eine klei- 
ne Anfrage). Aber es bedurfte erst einer 
bestätigenden höchstrichterlichen Ent- 
scheidung, um das Bundesland Bremen 
zur Beachtung des Gesetzes zu veranlas- 
sen“ („Urheberrecht“, 5. Aufl., S. 328). 
Das Ausnutzen von Gesetzeslücken mag 
zwar moralisch verpönt sein, wird jedoch 
allenthalben praktiziert. Beispielsweise 
sind ganze Armeen von Steuerberatern 
damit befaßt, unter Anwendung aller gera- 
de noch legalen Tricks auch die letzte 
Steuermark für ihre Klienten einzusparen. 
Das Urheberrechtsgesetz enthält bezüg- 
lich der „Computerwerke“ (= Software) 
jedoch mehr Lücken als sinnvoll anwend- 
bare Paragraphen, so daß man im Hand- 
umdrehen eine Fülle von Antinomien kon- 
struieren kann, von denen wir eine heraus- 
greifen wollen: 

Als der Gesetzgeber den 853 UrhG for- 
mulierte, dachte er nicht daran, daß von 
Betriebssystemen mehr als nur „einzel- 
ne“ Vervielfältigungsstücke zum persönli- 
chen oder sonstigen eigenen Gebrauch 
benötigt werden könnten. Peeker-Leser, 
die beispielsweise unter DOS 3.3 arbeiten, 
haben mit Gewißheit schon mehr als 7 
Vervielfältigungsstüicke von DOS 3.3 
durch „INIT HELLO“ hergestellt. Wäre 
DOS 3.3 ein Urheberwerk, könnten wohl 
die meisten Apple-Besitzer wegen Verlet- 
zung von 853 als „Raubkopierer“ belangt 
werden. Zwar kann es nicht im Interesse 
einer Softwarefirma liegen, sich mit Tau- 
senden von Anzeigen zu befassen, weil 
sie dann letztlich ihre Kunden verlieren 
würde, doch möchte der Anwender nicht 


editorial 


in der ständigen Ungewißheit leben, daß 
seine Disketten, die neben dem Betriebs- 


system für ihn wichtige eigene Daten ent- 
halten (Briefe, Adressen, Meßwerte, La- 


gerbestände usw.), eines schönen Tages 

von der Polizei beschlagnahmt werden 

könnten. Wie kommt man aus diesem Di- 

lemma heraus? Es bieten sich folgende 

Möglichkeiten an: 

1. Das Urheberrechtsgesetz wird dahin- 
gehend novelliert, daß von einem Be- 
triebssystem beliebig viele und nicht 
nur einzelne Vervielfältigungsstücke für 
den persönlichen (853) und sonstigen 
eigenen Gebrauch (854) hergestellt 
werden dürfen. 

2. Das jeweilige Systemhaus erklärt beim 
Verkauf eindeutig, ob von dem Be- 
triebssystem beliebig viele Vervielfälti- 
gungsstücke zum persönlichen oder 
sonstigen eigenen Gebrauch herge- 
stellt werden dürfen. Dann weiß jeder, 
ob er im Falle der Herstellung von mehr 
als 7 Kopien mit zivil- und strafrechtli- 
chen Konsequenzen rechnen muß. 

3. Durch eine kollektive Feststellungskla- 
ge einer möglichst großen Zahl von Mi- 
krocomputer-Besitzern wird die Besei- 
tigung dieser Rechtsunsicherheit auf 
dem Prozeßwege erzwungen. 

Zum Schluß noch ein Hinweis in eigener 

Sache: Das lange erwartete Hires-Grafik- 


 Dump-Programm für den Imagewriter (s. 


Peeker, Heft 1/84) ist soeben fertiggestellt 
worden. Wir haben es deshalb bereits in 
die Sammeldisk #5 aufgenommen, ob- 
wohl es erst im nächsten Heft erläutert 
wird. Und noch eine „letzte Meldung“: 
Das MOUSE.ASS von Disk #4 muß mit 
Pascal 1.1 assembliert werden, weil der 
1.2-Assembler nicht mehr als 10 Prozedu- 
res verkraftet. 


Yun na 


Ulrich Stiehl 
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Das schon etwas antiquierte Betriebs- 
system DOS 3.3, das im August 1980 
erschien, ist trotz ProDOS auf dem be- 
sten Wege, noch zu Lebzeiten zur Le- 
gende zu werden. Obwohl die Firma 
Apple in ihrer Garagenzeit Akzente in 
der Transparenz von Computersyste- 
men gesetzt hatte, wurde die innere 
Struktur des DOS mit Ausnahme der 
RWTS stets wie ein Staatsgeheimnis 
gehütet. In dem vorliegenden Beitrag 
soll deshalb der Schleier des File-Ma- 
nagers, eines bislang wenig bekannten 
Teils des DOS, gelüftet werden. 


Das Disk-Operating-System des Apple Il 
läßt sich in 3 Teile gliedern. Der am besten 
dokumentierte Teil ist ohne Zweifel der 3. 
Teil, d.h. die Read/Write-Track/Sektor- 
Routine oder RWTS, die im Benutzerhand- 
buch kurz beschrieben wird. Ihre Aufgabe 
ist der Transfer von Daten zwischen RAM 
und Diskette; sie bildet somit die Schnitt- 
stelle zwischen Speicher und Laufwerk 
und umfaßt den Bereich von $B800 bis 
$BFFF. Der 1. Teil ($9D00-$AACO) des 
Betriebssystems wird vom Command-In- 
terpreter eingenommen, der für die Be- 
fehlserkennung, die Parameterübergabe, 
die Formate der einzelnen Dateitypen und 
die Bereitstellung der DOS-Puffer verant- 
wortlich ist. Die eigentliche Verwaltung der 
Dateien ist Aufgabe des 2. Teils, des File- 
Managers (= FM), der zwischen dem 
Command-Interpreter und der RWTS liegt. 
Der File-Manager verfügt über eine eigens 
für den Assemblerprogrammierer einge- 
richtete Schnittstelle, die übrigens vom 
Command-Interpreter nicht benutzt wird 
und die über einen der Page-3-Vektoren 
indirekt aufgerufen werden kann. Alle für 
den Aufruf benötigten Werte werden in der 
File-Manager-Parameter-Liste übergeben, 
deren Adresse durch Aufruf einer kurzen 
Page-3-Routine ermittelt werden kann. 
Durch dieses Verfahren ist es möglich, 
den FM auch in verschobenen und ge- 
patchten DOS-Versionen ausfindig zu ma- 
chen. 


Die Organisation einer Diskette 


Vor der näheren Analyse dieser Schnitt- 
stelle sei noch einmal kurz die Organisa- 
tion einer DOS-3.3-Diskette beschrieben. 
Eine Diskette ist im allgemeinen in 35 
Spuren zu je 16 Sektoren mit jeweils 256 
Bytes aufgeteilt: Dies macht zusammen 
560 Sektoren oder 143.360 Bytes. Bei 
diesen 560 Sektoren sind 5 verschiedene 
Typen zu unterscheiden: 
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DOS-Image - Die Spuren O bis 2 beinhal- 
ten das Image des Systemprogramms, 
das beim Booten in mehreren Schritten in 
den Speicher geschrieben wird. Von die- 
sen 3 mal 16 Sektoren werden jedoch nur 
37 Sektoren benutzt. Die verbleibenden 
11 Sektoren auf Spur 2 werden beim Ini- 
tialisieren einer Diskette dennoch als be- 
legt gekennzeichnet, es verbleiben also 
560 - 46 = 512 Sektoren. 

VTOC - Die Volume Table of Contents 
stellt den Haupteintrag im Inhaltsverzeich- 
nis der Diskette dar und umfaßt den Sektor 
O der Spur 17. In ihr sind unter anderem 
die Position des Catalogs und die Track- 
Bit-Map enthalten. In dieser Spur-Bit-Ta- 
belle sind für jeden Sektor 4 Bytes als 
Bitmuster angelegt, wobei ein gesetztes 
Bit den entsprechenden Sektor freigibt 
und ein gelöschtes Bit den Sektor als be- 
nutzt kennzeichnet. 

Catalog-Sektoren — Das Inhaltsverzeich- 
nis belegt die 15 verbleibenden Sektoren 
der Spur 17. Dabei beinhaltet jeder Sektor 
ein Linkfeld zum nächsten Catalog-Sektor 
und 7 Felder für Dateieintragungen. Somit 
sind 7 mal 15 = 105 Dateieinträge mög- 
lich. Eine Erweiterung des Catalogs ist 
nicht vorgesehen. Jeder Catalog-Eintrag 
enthält außer Name, Dateityp und -länge 
ein Linkfeld zum ersten Sektor der Track/ 
Sektor-Liste (= TSL) einer Datei. Subtra- 
hiert man die Spur 17 von der Nettospei- 
cherkapazität, so verbleiben 496 Sektoren 
oder 126.976 Bytes zur Speicherung von 
Daten. 

Track/Sektor-Liste — Die TSL enthält au- 
Ber einem Linkfeld zur nächsten TSL eine 
Tabelle von 122 T/S-Paaren, die auf die 
Datensektoren einer Datei verweisen. 
Umfaßt eine Datei mehr als 122 Datensek- 
toren, so wird ein weiterer TSL-Sektor an- 
gelegt. 

Datensektoren — Die für den Benutzer 
letztlich einzig bedeutungsvollen Sektoren 
sind die Datensektoren, die entsprechend 
dem Dateityp außer den Informationen 
über Position und Länge im allgemeinen 
ein Abbild des Speichers darstellen. Auf 
die Sonderstellung von Textdateien soll 
hier nicht weiter eingegangen werden. 


Der Aufbau eines DOS-Puffers 


Es erweist sich zum Verständnis des FM 
vorteilhaft, sich noch einmal den Aufbau 
eines DOS-Puffers vor Augen zu führen. 
Der Command-Interpreter richtet beim 
Kaltstart oder der Angabe von MAXFILES 
eine DOS-Buffer-Chain ein, die meist aus 
3 Puffern besteht. Jeder geöffneten Datei 
(dieser Begriff wird später noch einmal 


dos 3.3 ey 


erläutert) wird ein Puffer zugewiesen. Ein 
solcher Puffer umfaßt 595 Bytes und ist in 
5 Felder einteilbar: 


Datenpuffer — $000-$0FF (000-255). In 
diesem Bereich sammelt der FM die zu 
lesenden oder zu schreibenden Informa- 
tionen, um ausschließlich ganze Sektoren 
zu transferieren. 

TSL-Puffer — $100-$1FF (256-511). Die- 
ser Bereich nimmt den gerade aktuellen 
Sektor der TSL auf. 

Puffer des FM-Arbeitsbereichs — $200- 
$22C (512-556). Der FM sichert hier nach 
jedem Aufruf alle im Zusammenhang mit 
dieser Datei wichtigen Werte und liest sie 
bei einem erneuten Aufruf wieder ein. 
Puffer des Dateinamens — $22D-$24A 
(557-586) Ein Dateiname hat stets 30 Zei- 
chen (Bit 7 = 1), wobei der letzte Teil mit 
Blanks ($AO) aufgefüllt wird. Ist dieser 
DOS-Puffer unbenutzt, so erscheint eine 
Null im ersten Byte. 

Adreßliste — $24B-$252 (587-594) Diese 
Adreßliste besteht aus 4 Adressen im 
1LSB/MSB-Format und verweist auf die er- 
sten 3 Felder dieses Puffers und das Na- 
mensfeld des nächsten Puffers. Beim letz- 
ten Puffer enthält die letzte Adresse 
Nullen. 


Der Aufruf des File-Managers 


Wie bereits oben erwähnt, kann der FM 
über einen der Page-3-Vektoren, und zwar 
durch JSR $03D6 aufgerufen werden. Bei 
normalem DOS 3.3 ist dies auch durch 
JSR $AAFD möglich. In jedem Fall muß 
vor dem Aufruf die Parameter-Liste ent- 
sprechend vorbereitet werden. Die An- 
fangsadresse dieser Liste läßt sich durch 
folgende kleine Routine ermitteln: 

JSR $03DC 

STY $ED 

STA $EE 

Danach kann mittels ($ED),Y auf die Para- 
meter-Liste zugegriffen werden. Bei nor- 
malem DOS ist deren Adresse $B5BB. 
Die zu übergebenden Parameter sind von 
dem auszuführenden Befehl abhängig und 
können der Tabelle 3 entnommen wer- 
den. Es ist ersichtlich, daß nicht für alle 
Befehle alle Parameter benötigt werden. 
Bevor nun im folgenden auf die einzelnen 
Befehle eingegangen wird, noch einige all- 
gemeine Bemerkungen. 


Der FM kann stets nur eine Datei bearbei- 
ten. Dabei muß jede Datei zunächst einmal 
eröffnet werden. Dieses Eröffnen ist nicht 
mit dem OPEN-Befehl bei Textdateien zu 





verwechseln. Alle für die Bearbeitung der 
Datei benötigten Variablen legt der FM in 
seinem Arbeitsbereich, der sog. File-Ma- 


nager-Work-Area, ab. Um bei einem 
späteren Aufruf diese Variablen wieder pa- 
rat zu haben, kopiert er diese nach getaner 
Arbeit in einen Puffer, dessen Adresse 
vom aufrufenden Programm in der Para- 
meter-Liste auf Position 12 und 13 bereit- 
gestellt werden muß. Das gleiche gilt für 
die TSL der gerade in Arbeit befindlichen 
Datei. Auch dieser Bereich muß vom auf- 
rufenden Programm bereitgestellt und in 
Position 14 und 15 der Parameter-Liste 
eingetragen werden. Benötigt der FM ei- 
nen Datenpuffer, so ist dieser auf Position 
16 und 17 zu übergeben. 

Hier zeigt sich der Sinn und Zweck der 
DOS-Puffer; sie enthalten nämlich genau 
die geforderten Bereiche, d.h. daß bei der 
richtigen Zuordnung des richtigen Puffers 
beliebig viele Dateien gleichzeitig bearbei- 
tet werden können. Es ist nur sicherzustel- 
len, daß bei jedem Aufruf die entsprechen- 
den Pufferbereiche übergeben werden. 
Das 10. Byte der Parameter-Liste hat eine 
Sonderstellung. Es dient zur Rückgabe ei- 
nes Fehlercodes. Trat während der Arbeit 
des FM ein Fehler auf, wird das Prozessor- 


Carryflag auf 1 gesetzt und ein entspre- 
chender Code im 10. Byte eingetragen, 
ansonsten werden das Carryflag und der 
Fehlercode zu 0. Die Bedeutung der ein- 
zelnen Fehlernummern entnehme man 
der Tabelle 1. 

Die letzten beiden allgemeingültigen 
Bytes sind das Byte auf Position 11, das 
ungenutzt ist, und das Byte auf Position O, 
das zur Übergabe der Befehlsnummer 
dient. 


Übersicht über die FM-Befehle 


OPEN - Der Open-Befehl dient zur Eröff- 
nung einer Datei. Dabei müssen die Lauf- 
werksparameter Slot und Drive sowie die 
Volume-Nummer (0 deckt alle Volume- 
Nummern ab) übergeben werden. Die 
Adresse des Dateinamens muß in Position 
8 und 9 eingetragen werden, der Dateityp 
in Position 7, wobei Bit 7, das Lockbit, 
stets O sein sollte (siehe hierzu Tabelle 2). 
Soll später eine Positionierung innerhalb 
der Datei erfolgen, so ist die Recordlänge 
festzulegen; Recordlänge O wird intern zu 
1 geändert. Der FM sucht im Inhaltsver- 
zeichnis der Diskette eine Datei gleichen 
Namens und trägt den vorgefundenen Da- 


Tabelle 3: File-Manager-Parameter-Liste 


$ 00 


8 
=D 


$ 01 


Record- 


TION nummer 


CLOSE 










INIT $B |DOS- 
ee 





e>) 


1. Namens- 


| Daten- R 
byte E 
READ/’ |53/| $ | Pufferlänge Pufferadressel T 
ale: 1% $ 3 Fr-3 Recordoffset Daten- U 
Fr-3 byte R 
TI FETT Pufferlänge |Pufferadressel N] 
DELETE | $5 nn _ V S 1. Namens- 
. adresse 
CATA- s Tan 
LOG . eg 
LOCK $7 u u nn S 1. Namens- | 9 
nn adresse E 
uncoer | se ICH u 
RENAME  T2. namens- 
_ Tı adresse 


VERIFY 


8 


Bi: 


adresse 


u 5 ME Een EB nz 


teityp in Position 7 ein. Das aufrufende 
Programm kann durch Setzen des X-Regi- 
sters beeinflussen, ob eine neue Datei 
angelegt wird, falls eine Datei gleichen 
Namens noch nicht existiert. Bei X un- 
gleich O erfolgt bei Nichtbestehen die Feh- 
lermeldung „Datei nicht gefunden“, bei X 
= 0 wird eine neue angelegt. Der erste 
TSL-Sektor wird automatisch eingelesen. 
Einem Open-Befehl sollte stets eine Posi- 
tionierung folgen. 

POSITION — Durch diesen Befehl kann 
der Dateizeiger auf eine beliebige Position 
innerhalb der Datei gesetzt werden. Die- 
ser Zeiger wird durch einfache Multiplika- 
tion der Recordlänge mit der Recordnum- 
mer ermittelt. Durch Addition des Record- 
Offsets kann dabei auch eine Position in- 
nerhalb eines Feldes eingestellt werden. 
Dieser Befehl wurde ursprünglich für die 
Bearbeitung von Random-Access-Dateien 
implementiert, kann aber bei jedem ande- 
ren Dateityp angewandt werden. 

CLOSE - Der Close-Befehl schließt die 
Bearbeitung einer Datei ab. Dabei wird der 
letzte Datensektor auf die Diskette ge- 
schrieben und die VTOC sowie die TSL 
aktualisiert. Ein bereitgestellter DOS-Puf- 
fer wird nicht freigegeben. 


$02 | $03 Zr. $05 1$06 |1$07| $08 |$09 |$0A |$0B|$0C | $0D|$OE | $OF al Au 
Rekordlänge S | Typ | 1. Namens- zn 
adresse 


FMWA- TSL- | 

Adresse Adresse 
TSL- Daten- 

Adresse adresse 










TSL- 
Adresse 


TSL- Daten- 
Adresse adresse 
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READ/WRITE - Read und Write unter- 
scheiden sich außer in der Befehlsnum- 
mer (Read = 3, Write = 4) kaum in den 
Parametern. Beide Befehle können durch 
den Subcode auf Position 1 nochmals nä- 
her spezifiziert werden. Bei Subcode 1 
und 2 wird an der Stelle fortgefahren, an 
der der letzte Schreib/Lese-Vorgang en- 
dete, bei Subcode 3 und 4 wird entspre- 
chend den zu übergebenden Recordwer- 
ten vorher positioniert. Mit Subcode 1 und 
3 wird pro Aufruf immer nur 1 Byte gele- 
sen/geschrieben, das auf Position 8 ein- 
getragen bzw. von dort entnommen wird. 
Subcode 2 und 4 ermöglichen den Trans- 
fer ganzer Blöcke. Dabei muß in Position 8 
und 9 die Lage dieses Blocks eingetragen 
werden. Die Werte auf Position 6 und 7 
dienen dabei als Blockzähler (= Länge 
des Blocks), wobei darauf zu achten ist, 
daß beim Schreiben diese Länge um | 
vermindert angegeben werden muß. 


DELETE - Dieser Befehl entfernt einen 
Catalog-Eintrag aus dem Inhaltsverzeich- 
nis der Diskette. Entfernen bedeutet hier- 
bei kein Löschen, sondern eine spezielle 
Markierung. In einem weiteren Zug wer- 
den dann alle durch diese Datei belegten 
Sektoren freigegeben. Dieser Befehl führt 
implizit ein OPEN durch. Das X-Register 
sollte daher, um dem FM unnötige Arbeit 
zu sparen, beim Aufruf stets ungleich O 
sein. 

CATALOG - Dieser Befehl listet das In- 
haltsverzeichnis der Diskette und ent- 
spricht exakt dem normalen CATALOG- 
Befehl. Es sei in diesem Zusammenhang 
erwähnt, daß der FM bei jedem Aufruf den 
in Position 12 und 13 angegebenen Ar- 
beitsbereich einliest, obwohl dies bei eini- 
gen Befehlen nicht notwendig wäre. Es 
kann bei diesem Aufruf also durchaus auf 
die Benutzung eines DOS-Puffers ver- 
zichtet und statt dessen ein beliebiger 45 
Bytes großer Bereich angegeben werden. 
LOCK/UNLOCK - Diese beiden Befehle 
verändern das Bit 7 des Dateitypbytes im 
Catalog-Eintrag. Da auch diese Befehle 
ein implizites OPEN durchführen, sollte 
auch bei diesem Aufruf das X-Register 
ungleich O sein. 

RENAME - Hierbei wird das Namensfeld 
in einem Catalog-Eintrag geändert. Die 
Adresse des zweiten Namens ist auf Posi- 
tion 2 und 3 zu übergeben. Auch hier wird 
ein Open durchgeführt. 

INIT — Dieser Befehl initialisiert durch Auf- 
ruf der RWTS die Diskette und schreibt 
dann das DOS-Image auf die Spuren O bis 
2. Anschließend wird die VTOC und der 
Catalog angelegt. Auf Position 1 ist die 
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Tabelle 1: File-Manager- 


Fehlermeldungen 
Bit 7 = 1 bei gesperrten (locked) Dateien 
= kazı Fahler . Bit 7 = ® bei nicht gesperrten Dateien 
l — Sprache nicht verfügbar 
(beim Laden von RAM-A/S) $00 - Textdatei 
2 — ungültige Befehlsnummer $01 — Integer-Basic-Programmdatei 
3 — ungültiger Subcode $02 — Applesoft-Programmdatei 
4 — Diskette schreibgeschützt $04 — Binärdatei 
5 — keine weiteren Daten $08 — unbenutzt (Typ S) 
6 — Datei nicht gefunden $1® — verschiebbares Assemblermodul (Typ R) 
(bei X = ® dennoch Neuzuweisung) $2® — unbenutzt (Typ A) 
7 — falsche Volumenummer $4® — unbenutzt (Typ B) 
8 — I/0-Fehler 
9 - Diskette voll 
1® - Datei gesperrt (locked) 
FM.BSP 
l mm gg epepepeb111j1j1j1j1j1Zj1jZ1ZZZjj1[ * 
2 * File-Manager Anwendungsbeispiele . 
) a u u u ML * 
4 
= ORG $8000 
7 
8 FMPL EQU $EB ‚Adresse der F/M-Parameter-Liste 
9 BUFADR EQU $ED ‚Adresse des DOS-Puffers 
19 DOSWRM EQU $3D9 ;Sprung zum DOS-Warmstart 
11 FLEMGR EQU $3D6 ‚Sprung zum File-Manager 
12 GETFMPL EQU $3DC ;FMPL ermitteln 
13 CROUT EQU $FDSE ‚CR ausgeben 
14 PRHEX EQU $FDE3 ‚Hexzahl ausgeben 
15 PRERR EQU $FF2D ;"ERR" ausgeben 
16 
Ir *------ —— ------------ — DELETE —-——--———— 
18 
8000: 20 51 80 19 JSR STARTUP 
8003: 20 6D 80 29 JSR SETFLN1 ‚Dateiname eintragen 
8006: A9Y 05 2l LDA #5 ;DELETE-Befehl 
8008: AC 82 80 22 JMP CALLFM 
23 
Bü age nn BATALOG ze * 
25 
800B: 20 51 80 26 JSR STARTUP 
8PDE: A9 P6 27 LDA #6 ;CATALOG-Befehl 
8010: AC 82 80 28 JMP CALLFM 
29 
30 %*------- LOCK --------------- ” 
öl 
8013: 20 51 80 32 JSR STARTUP 
80l6&E: 20 6D 89 33 JSR SETFLNI ‚Dateiname eintragen 
8019: AY 97 54 LDA #7 ;‚LOCK-Befehl 
801B: AC 82 80 35 JMP CALLFM 
36 
57 %*--——-------- UNLOCK -------- * 
38 
8ßlE: 20 51 80 39 JSR STARTUP 
8021: 28 6D 80 AB JSR SETFLNl ‚Dateiname eintragen 
8024: A9 08 4l LDA #8 ; UNLOCK-Befehl 
8026: AC 82 80 42 JMP CALLFM 
43 
44 %*-—----------- RENAME —--—-—-—- * 
45 
8029: 20 51 80 46 JSR STARTUP 
802C: 20 75 80 47 JSR SETFLN2 ;‚RENAME-Dateiname eintragen 
802F: 20 6D 80 48 JSR SETFLNI ‚alten Dateiname eintragen 
8032: A9 09 49 LDA #9 ;RENAME-Befehl 
8034: AC 82 80 59 JMP CALLFM 
&1 
ee ie DT u 
55 
8037: 20 51 88 54 JSR STARTUP 
803A: AD D2 03 55 LDA DOSWRM+2 ‚erste Seite des DOS-Image 
803D: AB Bi 56 LDY #1 ;‚ ermitteln und 
803F: 91 EB 571 STA (FMPL),Y ‚ eintragen 
8041: A9Y GB 58 LDA #11 ‚INIT-Befehl 
8043: AC 82 80 59 JMP CALLFM 
6% 
6l #*------------- - - - - - -. -. - —- VERIFY -----—-—---- - - - - — 
62 
8046: 20 51 80 63 JSR STARTUP 
8049: 20 7B 80 64 JSR SETFLN]l ;Dateiname eintragen 


dos 3.3 ey" 


Tabelle 2: Dateitypen 





erste Seite des sich im Speicher befindli- 
chen DOS anzugeben (normalerweise 


$9D00), 
Nummer. 
VERIFY - Es handelt sich hier um densel- 
ben Befehl, wie er auch unter Basic An- 
wendung findet. Praktisch geschieht 
nichts anderes als ein komplettes Lesen 
der Datei, wobei ausschließlich RWTS- 
Fehler auftreten können. 


auf Position 4 die Volume- 


Um die Verwendung des FM noch einmal 
zu verdeutlichen, ist diesem Beitrag ein 
kurzes Beispielprogramm FM.BSP ange- 
fügt, das den Aufruf der einzelnen Befehle 
näher erläutern soll. Die dort nicht aufge- 
führten Befehle werden in einem späteren 
Beitrag anhand einer FID-ähnlichen File- 
Copy-Utility ausgeführt. 


Leider läßt sich der FM nicht in jeder DOS- 
Version ohne weiteres aufrufen. Das von 
Glen Bredon stark gepatchte DOS des 
Merlin-Assemblers verweigert die Zuord- 
nung neuer Dateien. Der Schlüssel zu die- 
sem Problem liegt in einem Byte (oder 
besser noch in einem Bit) des Command- 
Interpreters, der eine Tabelle zur Überprü- 
fung der Gültigkeit der verschiedenen Pa- 
rameter jedes Befehls enthält. In dieser 
Tabelle ist je 1 Bit für die Möglichkeit einer 
Dateineuzuweisung angesetzt. Der alte, 
jetzt geänderte INIT-Befehl ließ dies zu. 
Da daraus der ASSEM-Befehl wurde, hat 
Bredon dieses Bit zurückgesetzt. Beim 
Aufruf des FM wird durch das X-Register 
der INIT- oder LOAD-Befehl simuliert, d.h. 
in dem einen Fall ist eine Neuzuweisung 
möglich, in dem anderen nicht. Nach Bre- 
dons Eingriff war in beiden Fällen keine 
mehr möglich. Eine schnelle Lösung für 
dieses Problem: $A909 wird wieder zu 
$21. Dies tut dem Merlin keinen Abbruch 
und der FM arbeitet wieder, wie er soll. 


4 


10 


804AC: A9 
8DAE: AC 


8051: 20 
8054: 84 
8056: 85 


8058: AD 
805B: 85 
805D: AP 
8S0O5F: 84 
8061: Bl 
8063: AA 
8064: CB 
8065: Bl 
8067: 85 
8069: 8A 
806A: 85 
8D6C: 69 


8d6D: A9Y 
8B6F: A2 
8071: AB 
8073: D® 
8075: A9 
8077: A2 
8079: AB 
807B: 91 
807D: C8 
SOTE: 8A 
SOTF: 91 
8081: 69 


8082: A2 
8084: AB 
8086: 91 
8088: AP 
808A: Bl 
808C: 48 
808D: C8 
SOSE: CP 
8099: IP 
8092: AD 
8094: 68 
8095: 91 
8097: 88 
8098: CO 
809A: BP 
809C: AB 
809E: B9 
8DdAl: 91 
80A3: CB 
8BAA: CO 
8DA6: 90 


-80A8: 20 


80AB: A® 
8QAD: Bl 
8DAF: 99 
80Bl: 48 
80B2: 20 
80B5: 29 
80B8: 68 
80B9: AC 
8OBC: 6® 


80BD: CA 
80C3: AP 
80C9: AB 
8SOCF: A® 
80D5: AQ® 
80DB: C4A 
SPEL: AB 
8DET: AB 
SPED: A® 
80F3: AB 


8OF9: BP 
8SOFA: ®l 
8SOFB: 6 


252 Bytes 


dc 
82 


BD 


08 
d6 
DB 
80 


EB 


EB 


Bl 
99 
EB 
lE 
ED 


24 
F8 
41 


EB 


80 


03 


03 


80 


03 


FD 
FF 


FD 


112 
113 
114 
115 
116 
117 
118 
119 
129 
121 
122 
123 
124 
125 
126 
127 
128 
129 
13 
131 
132 
133 
134 
135 
136 
187 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 


LDA #12 ;VERIFY-Befehl 
JMP CALLFM 
*--—-— 0.4 
STARTUP JSR GETFMPL ;Adresse der File-Manager- 
STY FMPL ‚ Parameter-Liste 
STA FMPL+1 ;‚ ermitteln 
LDA DOSWRM+2 ‚Adresse des 1. DOS-Puffers 
STA BUFADR+1 ;‚ ermitteln 
LDY #9 
STY BUFADR ; (1. Eintrag im DOS-Image 
LDA (BUFADR),Y ; verweist auf den 1. Puffer 
TAX ‚ der DOS-Buffer-Chain) 
INY 
LDA (BUFADR),Y 
STA BUFADR+1 
TXA 
STA BUFADR 
RTS 
SETFLNl LDA #<FLENMEl ;erster Dateiname 
LDX #>FLENMEL 
LDY #8 ‚Offset zum l. Dateinamen 
BNE SETFLN ‚unbedingt 
SETFLN2 LDA #<FLENME2 ;RENAME-Dateiname 
LDX #>FLENME2 
LDY #2 ‚Offset zum 2. Dateiname 
SETFLN STA (FMPL),Y ;LSB der Adresse eintragen 
INY 
TXA 
STA (FMPL),Y ;MSB der Adresse eintragen 
RTS 


* File-Manager aufrufen 


CALLFM LDX 
LDY 
STA 
LDY 
GETADRS LDA 
PHA 
INY 
CPY 
BCC 
LDY 
SETADRS PLA 
STA 
DEY 
CPY 
BCS 
LDY 
SETVDS LDA 
STA 
INY 
CPY 
BCC 
JSR 
LDY 
LDA 
BCC 
PHA 
JSR 
JSR 
PLA 
JMP 
NOERR RTS 


FLENMEl ASC 
HEX 
HEX 
HEX 
HEX 
FLENME2 ASC 
HEX 
HEX 
HEX 
HEX 


VODRSL DFB 
DFB 
DFB 


#1 ;keine Neuzuweisung 

+9 ;CALLTYP in Parameter- 

(FMPL),Y ;‚ Liste eintragen 

+30 

(BUFADR) ,Y ;Pufferadressen aus DOS- 
;‚ Puffer einlesen 

+36 ;  (FM-Arbeitspuffer) 

GETADRS (TSL-Puffer) 

#17 ;  (Datenpuffer) 

(FMPL),Y ‚und in die Parameterliste 
‚ eintragen 

#12 

SETADRS 

+4 ; Volume 

VODRSL-4,Y ; Drive 

(FMPL),Y Slot 

#7 ;‚ in Parameterliste 

SETVDS ;‚ eintragen 

FLEMGR ;File-Manager via Page 3 

+19 

(FMPL),Y ;‚Return-Code 

NOERR 
;‚Return-Code retten 

CROUT 

PRERR ;"ERR" drucken 

PRHEX ;Fehlernummer ausgeben 

"DATELL' 

ADADADABADAD 

ABADADBADADAP 

ADADADADADAD 

ADADADADADAD 

"DATEIZ" 

ADADABADADAD 

ADADABADADAD 

ABADADADADAD 

ADABADBADADAD 

d ‚Volume 

3 ‚Drive I 

6 ‚Slot = 
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Katalog kostenlos! 


Heiße Renner 


NEU NEU NEU NEU 


D.O.S. Computersysteme 


Am Kühnbach 42 
7170 Schwäbisch Hall 11 
Tel. (07 91) 5 17 36 oder 542 27 


Bei Vorkasse oder Nachnahme 
erfolgt Versand spesenfrei 


Ausführlicher Katalog DM 2,- 
in Briefmarken 


D.0.S. Computersysteme 
Der Spezialist für Schulen, 
Universitäten, Techniker! 
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olle Garantie auf diese Computer 
Ohne Einschränkungen voll Apple compatible. 
48 u. 64 K. Jeder Computer auf Herz und Nieren 
geprüft. Alle IC’s gesockelt. 8 Slots. 10er Numeric 
Block. Netzteil 5 Amp. Peak. 
48 K Personal Computer 
BN 65001 
64 K Personal Computer 
mit Dual Processor Z 80/6502 
BN 65061 DM 1198, — 
12” Monitore. Industriegehäuse. 15 MHz auflösend. : 
40/80 Zeichen. 220 V/50 Hz. 
Grüner Schirm BN 65089 DM 320,— 
Oranger Schirm BN65088 DM 320,— 


Betriebsbereite Systeme 


48 K - Apple kompatibles System. 5-Amp.-Netzteil. Spezielle 
Numeric Tastatur. Groß/Kleinschreibung. Alle IC’s gesockelt. 8 Slots. 
Erweiterbar bis 256 K. Software kompatible an alle Apple Software wie 
CP-M / PASCAL / FORTRUN / LOGO / FORTH usw. Direktanschluß für 
Datacassette und Video-Monitor. FLOPPY-LAUFWERK 5%4”. Slimline- 
Ausführung. Metallgehäuse. Anschlußkabel mit Stecker. Voll-Apple- 
Kompatible. DISC-DRIVER-CARD für den Anschluß von 2 Floppy-Lauf- 
werken 5%4”. 12” MONITOR. MONOCHROM GRÜN. Industriegehäuse. 
Auflösung über 15 MHz. Umschaltbar 40/80 Zeichen. Auf Wunsch liefern 
wir diesen Monitor auch mit orangenem Schirm. 

48 K-System 

48 K - Computer + Floppy-Laufwerk 5Y4” + 12” Monitor + 1 Jahr Voll- 
garantie + Eigener Kundendienst + Auf Wunsch zinsfreie Teilzahlung 
25% p. NN, Rest iin3 gleichen Monatsraten ohne Bearbeitungsgebühren. 


BN 65158 COMPUTER-TRAUM NR. 1 DM 1878,— 


ANGEBOTWIE OBEN, 

jedoch mit 2 FLOPPY-LAUFWERKEN 

BN 65 159 COMPUTER-TRAUM NR. 2 D M 2098, — 
64 K - Apple kompatibles System, wie unser 48 K, jedoch mit 
Dual-Processor Z 80 und 6502 + 64 K-Erweiterung. 

64 K-System 

64 K-Computer mit Dual Processor + Floppy-Laufwerk 54” + 12” Moni- 


tor + 1 Jahr Garantie + Eigener Kundendienst + Auf Wunsch zinsfreie 
Teilzahlung 25% p. NN, Rest in 3 gleichen Monatsraten ohne 


Bearbeitungsgebühren. 

BN 65 160 COMPUTER-TRAUM NR. 3 D M 1948, — 
ANGEBOTWIE OBEN, 

jedoch mit 2 FLOPPY-LAUFWERKEN 

BN 65 161 COMPUTER-TRAUM NR. 4 DM 2299, — 
Der Massenspeicher 1 M-Byte 

Mit Anschlußanleitung für Apple-Computer. 
3”-Mini-Floppy-Laufwerk. 2 x 80 = 160 Track. 

1 Mega-B Doppelkopf. Standard Shugart BUS. 
Qualitätslaufwerke eines bekannten Japanischen 
Herstellers. Guß-Chassis. 1 Jahr Garantie. Kun- 
dendienst über unsere Organisation. 

Minimaße nur 150 x 100 x H 40 mm. 

BN 65 163 1 M-BYTE-KAPAZ. DM 598, — 


DM 1098, — 


Blitz-Kontakt (07221) 3487 





Chinon-Laufwerk 


» Apple Il kompatibel « 
(Bericht in diesem Heft) 


nur 498, DM 


NEU NEU NEU NEU 


Aus unserem umfangreichen Angebot: 


Profimax II mit 64K RAM, Apple Il-comp., 
6502 + Z80, progr. Tastatur, num. Block, 5A-Netzteil . 


Profimax Ill, wie oben, im IBM-Gehäuse 
mit IBM-Tastatur 


Motherboard Profimax 


Prometric B2-Motherboard, 3 Proz., 2 Schnittst., 
192K RAM, 80 Zeich 


Prometric B3-Motherboard, wie B2, 
zusätzlich 256 K Pseudodisc 


Profimonitor, Metallgehäuse, 22 MHZ, 12", bernstein .... 
Monitor Heath/Zenith ZVM 123, grün, 15 MHZ 

Tastatur aus Profimax Il 

IBM-Tastatur, deutsche Belegung 


TEAC 55A, kompl. m. Kabel u. Geh., anschlußfertig 
BI-ADRIR-TOND: ra en een 648,- 


TEAC 55F, 2 x 80 Spuren, modif. für Betrieb an Apple, 
Speicherriese 


Disk II Controller 


1248,- 


Graphic Computer Mouse 
Graphic-Designer Apple compatible. 

Erstellt Zeichnungen und Graphicen einfach GRAPH 
und schnell. Direkt auf den Bildschirm. " 
Gute Auflösung. Viele Funktionen bereits MOUSE 
programmiert wie Frame/Line/Circle/Ellype/Fil/V 

Prints u. viel, viel mehr. Komfortable Menu- 

Steuerung. Anschluß über Game IO Port. 

Lieferung mit Kabel, Software 5 4” Discette 


und Anleitung. 
BN 65 156 DM 189,— 


Unser Kundendienst in Baden-Baden 
und Karlsruhe kann alles reparieren. 
WITT TEE STERTFACHER 


Paßt an jeden Apple und ähnliche 
Lautloses 54” Floppy-Laufwerk völlig narrensicher. 
Hochwertigste jap. Mechanik. Elektronik garantiert 
ohne Ausfälle. Wir geben gerne 1 Jahr Garantie 

auf diese Qualität. Slim Line. 

Jap. Spitzentechnologie. 

BN 65147 Geräuschloses 54" 
BN 65148 Pass. Slim Line Geh. 


BN 65011 Disc Drive Card DM 119, — 


Blitzpreis! Japan-Qualität 
514”/Apple compatible Anschlußkabel 
Apple fähiges Floppy. Slim Line. Metall-Gehäuse. 

1 Jahr Vollgarantie. Sofort anschließbar. 

Einfach nur am Apple einstecken. 

BN 65 151 DM 399,90 


DM 448,— 
DM 38,— 


Original Data Magnetics US-Qualität 5%4” 


100% Errorfree. Jede defekte Discette tauschen wir gegen 2 neue. 


5 Jahre Garantie auf dieses Material. 

BN 65152 DM 38,— 
DM 38, — 
D] 17 BE VA 


BIVEEDEESTE RD) 

BN 65153 

DM2D DS-DD 

BN 65 154 
Hochwertige Interface-Leerplatinen 
für Apple u. ä. 
Epoxy oder glasfaserverstärktes Material. Bereits gebohrt. 
65164 64 K Motherboard 89,— 65171 Eprom Writer 19,50 

Dual-Processor 65172 PAL/VIDEO/Modul. 19,50 

65165 Z-80 65173 128K 29,50 
65166 80 Zeichen/Soft 65174 Mikro Buffer 19,90 
65167 Serial/RS 232 65175 Buffer Printer 
65168 Parallel/8 Bit 65176 Super Serial 
65169 16 KRAM 65177 wD 
65170 6522 65178 Micro Modem 


10er Pack 
10er Pack 


10er Pack 


19,50 
19,50 
15,90 
15,90 
19,50 


15,90 29,50 


Contr. für alle 5/4” Laufwerke, mit Patch für 
DOS, CP/M, PASCAL 


Z80-Softcard 
80Z-Karte, Softswitch, 2 Zeichens. ........:2222222... 268,- 
80Z-Karte, mit 4 Zeichensätzen 


Druckerinterface, par. (= Centr.), für alle 
STAR-DIUCKEN. GER. ren 198,- 


Epromburner für 2716-2764 
AD-Wandler, 333ms Wandelz., 1 Kanal 


Drucker STAR Gemini 10X, grafikfähig, 120 cps, 
Centronics 


Drucker STAR Radix 10, Schönschrift, 200 cpi, 
Centronics 


Schreibmaschine Olympia electr. compact 2, 
Centronics-Schnittst. 


Plotter Pixy 3, DINA 4 
Disks Scotch, SS, DD, 10SL „2.4.2... 0. 65,- 
Joystick mit Mittelzentr. u. Just. ..........222c22222... 42,- 


En 


Soft und Zubehör 


5 Stück Comp. Cassetten. 
10 Min. Tonbandspulen. 


BN 65045 


5 Stück Comp. Cassetten. 

15 Min. ohne Tonbandspulen. 

BN 65046 DM 6,90 

5 Stück Discettenbox 54” für je 5 Discetten farbig. # 
BN 65112 DM 12,90 | 
5a" Discetten Bibliothek für 10 Discetten Kunststoff % 
BN 65057 DM 8,90 
51a" Discetten Bibliothek für 15 Discetten Kunststoff 
BN 65130 DM 19,80 
5a" Discetten Bibliothek für 50 Discetten Kunststoff 
BN 65110 DM 28,50 
5a" Discetten Bibliothek 

für 100 Discetten Kunststoff abschließbar 

BN 65049 DM 49,80 
Disc Doubler (Notcher) 

macht aus einer SS eine DS 54" 
BN 65143 

*Microswitch. 

Standard ASCIlI Parallel. 
Halltastatur/Cursor/Viele Funktions- 
tasten/+5 V/-12V. 


BN 92272 Apple u.ä DM 178,— 


Der SUPERKNÜPPEL FÜR APPLE 
und kompatible. VG-071. 

Joystick der edelsten Sorte. 
Leichtgängiger Kreuzknüppel mit automatischer 
Nullpunkt-Rückstellung. Spezielle Trimmregler 
zur genauen Einpegelung für jeden Kanal 

2 Abschußknöpfe. Rutschfeste Gummifüße. 
Flexibles Anschlußkabel 1,60 m lang. 

Komplett mit Stecker, sofort betriebsbereit. 


Metallgehäuse. 
BN 65056 VG-071 DM 49,90 


Original TEAC 55 F. Double Density. 2 x 80 Track. 


BN 65179 DM 598, Ylkaari 


300 Band Modem CCITTV. 21 

Postgenehmigt mit FTZ. Anschluß an alle Computer 
mit V 24 Schnittstelle. Schnittstellenstecker. Vollduplex. 
Answer- und Originalmodus. Autom. Kanalwahl. 


Made in Germany. DM 298.— N 


BN 65 180 
DM 59,80 


DM 9,95 


AN SIgor:Tei XtlıteWig-) 


DM 14,90 





Teilzahlung ab DM 300,- GLULC-WALHETSR)) 


Schnell-Versand 


Neue Discetten-Boxen 


Karussell-Box für 64 Discetten 5Y4”. 
Bequemer Zugriff. Stapelbar oder mit 
Wandhalterung. ® 320 x H 200 mm. 


BN 65 155 
Jetzt 3,5” Discetten-Box für 


50 Stück 3,5” Discetten 
Klappbox mit Sortiereinrichtung. 


BN 65 146 





DM 29,50 


Bühler Elektronik, Postfach 32, 7570 Baden-Baden, Tel. (07221) 3487 
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von Ulrich Stiehl 


Die Firma Digitanalog Ewald Balfer hat seit 
einiger Zeit eine preiswerte Interface-Kar- 
te im Produktionsprogramm, die als durch- 
kontaktete Leiterplatte (DM 35,-), als Bau- 
satz VIA 6522, CMOS-RAM und Sockel 
(DM 128,-) sowie als geprüfte Fertigkarte 
(DM 158,-) geliefert werden kann. Auf der 
uns zur Verfügung gestellten Komplettpla- 
tine befindet sich ein 2K-RAM, das jedoch 
auch durch ein EPROM 2716 ersetzt wer- 
den kann. Für die RAM-Version gelten fol- 
gende Adreßbereiche: 


— CX00-CXFF (X = 1-7) 

—- C800-CEFF 

Eigentlich ist die Karte als gewöhnliche 
Kommunikationsschnittstelle gedacht, z.B. 
als Parallel-Interface, serielles Interface 
(RS 232), Modem-Interface usw., und es 
werden von uns auch entsprechende Utili- 
ties für diesen Anwendungszweck vorbe- 
reitet, z.B. ein Drucker-Dump-Programm 
für Double-Hires-Grafik. 


1. Balfer-Interface löst Softswitch- 
Probleme 


Wer auf dem Apple Ile in Maschinenspra- 
che programmiert, dem fallen neben der 
„konventionellen“ Anwendung ganz an- 
dere Einsatzmöglichkeiten für die dann nur 
noch als RAM-Speicher fungierende Karte 
ein. Der Apple Ile verfügt über relativ kom- 
pliziert zu handhabende Softswitches für 
die Speicherverwaltung (Memory Mana- 
gement). Dies rührt daher, daß die 64K- 
Karte des Apple Ile — im Gegensatz zu 
RAM-Karten anderer Produzenten (IBS 
usw.) — in denselben Adreßbereich wie die 
„unteren“ 64K „gemappt“ ist. Es gilt je- 
doch der alte Grundsatz der Speicherver- 
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waltung, daß eine Memory-Management- 
Utility (MMU) normalerweise nicht in dem- 
selben Speicherbereich liegen sollte (oder 
darf), der durch die Speicherverwaltung 
tangiert wird. Ein einfaches Beispiel zur 
Erläuterung: 


Nehmen wir an, wir wollten das Byte der 
Speicherstelle $2100 der „oberen“ 64K 
(64K-Karte) in die Speicherstelle $2100 
der „unteren“ 64K (64K-Platine) übertra- 
gen. Darf sich dann das Übertragungspro- 
gramm im Speicherbereich ab $2000 in 
den „unteren“ 64K befinden? Beim Apple 
Ile (und im übrigen auch beim Apple Ilc) 
gibt es u.a. 4 Softswitches, die für unser 
Beispiel von Interesse sind: 

a) STA $C002 macht den „unteren“ Spei- 
cherbereich $0200-$BFFF lesefähig 
(read-enable, read-selectt) und damit 
gleichzeitig den „oberen“ Speicherbe- 
reich $0200-$BFFF leseunfähig. 

b) STA $C003 macht den „oberen“ Spei- 
cherbereich $0200-$BFFF lesefähig und 
damit gleichzeitig den „unteren“ Spei- 
cherbereich $0200-$BFFF leseunfähig. 

c) STA $C004 macht den „unteren“ Spei- 
cherbereich $0200-$BFFF schreibfähig 
(write-enable, write-select) und damit 
gleichzeitig den „oberen“ Speicherbe- 
reich $0200-$BFFF schreibunfähig. 

d) STA $C005 macht den „oberen“ Spei- 
cherbereich $0200-$BFFF schreibfähig 
und damit gleichzeitig den „unteren“ 
Speicherbereich $0200-$BFFF schreibun- 
fähig. 


Betrachten wir hierzu folgende Fälle, bei 
denen angenommen sei, daß vor Pro- 
grammbeginn der Speicherbereich 


$0200-$BFFF bereits lese- und schreibfä- 
hig gemacht worden sei: 


Fall 1 


ORG $2000 
LDA $2100 
STA $2100 
RTS 


Im Fall 1 würde das Byte von Speicherstel- 
Ile $2100 in dieselbe Speicherstelle $2100 
übertragen werden. Das Programm würde 
funktionieren, doch erfüllt es nicht die ge- 
stellte Aufgabe und wäre im übrigen auch 
sonst nutzlos. 


Fall 2 


ORG $2000 
STA $C005 
LDA $2100 
STA $2100 
STA $C004 
RTS 


Im Fall 2 würde das Byte der Speicherstel- 
le $2100 des „unteren“ Speicherbereichs 
$0200-$BFFF in die Speicherstelle $2100 
des entsprechenden „oberen“ Bereichs 
übertragen. Das Programm würde funktio- 
nieren, erfüllt aber nicht die gestellte Auf- 
gabe. 


Fall 3 


ORG $2000 
STA $C003 
LDA $2100 
STA $2100 
STA $C002 
RTS 
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Im Fall 3 wäre zwar theoretisch die gestell- 
te Aufgabe erfüllt, aber das Programm 
würde nach STA $C003 jämmerlich „ab- 
saufen“, weil der nachfolgende Befehl 
LDA $2100 nicht mehr vom Prozessor ge- 
lesen werden könnte, weil er nunmehr auf 
die „oberen“ 64K „blickt“, während sich 
das Programm in Wirklichkeit „unten“ be- 
findet. 


Fall 4 


ORG $0100 
STA $C003 
LDA $2100 
STA $2100 
STA $C002 
RTS 


Im Fall 4 würde endlich alles ordnungsge- 
mäß funktionieren, weil sich nunmehr die 
MMU außerhalb des Softswitchbereiches 
$0200-$BFFF befindet. Die Verwendung 
des Stacks $0100-$01FF oder gar der Ze- 
ro-Page $0000-$00FF als Programmbe- 
reich kann jedoch nicht gerade also opti- 
mal bezeichnet werden, da man sich nor- 
malerweise niemals sicher ist, ob dieser 


SLOTRAMDISK 


für Apple IIe mit 64K-Karte in S3 
und Balfer-Karte in (z.B.) S4 
BSAVE SLOTRAMDISK, A24736, L825 
Hex-Dunp: 


$6ßAB: AC AA 60 PA AD AZ 60 18 
$6PA8: 69 CO 8D 26 61 8D 31 61 
$60Bß: AD AS 60 PA BA BA BA 8D 
$60B8: 20 63 A2 BB BD EE 60 Fü 
$60Cc9: B6 20 ED FD ES DO F5 20 
$6ßc8: BC FD C9 CE FÖ 11 C9 EE 
$60D9: FO BD CY9 CA FO B6 CY EA 
$60D8: FO 2 DO EB 20 56 61 29 
$60Eß: 07 61 EA EA EA AY AY 8D 
$60ES: 92 B2 EA AC DB 93 8D D2 
$60Fß: CI CD CA C9 D3 CB B6 BA 
$60F8: Aß ED E9 FA AB C9Y EE EI 
$6100: FA AB CA AF CE AB BB A2 
$61ß8: 03 BD Q@Q BD DD 2B 61 D® 
$611ß: 22 CA 10 F5 A2 03 BD 2F 
$6118: 61 9D P® BD CA 10 F7 A2 
$6120: BB BD BB 63 9D PB CA ES 
$6128: D® F7 60 84 48 85 49 AC 
$6130: Bd6 CA PB A2 BO BD 43 61 
$6138: FO 06 20 ED FD ES DO F5 
$6149: AC EA 60 8D CA CF D3 AP 
$6148: ED EF E4 E9 E6 E9 FA E9 
$6150: ES F2 F4 87 8D BB A9 HP 
$6158: 85 CE 8C BB CO Sc 92 Cop 
$6169: SC BA CO SC BB Cd Sc 99 
$6168: CO A8 99 BB BB Cs DO FA 
$6170: 99 BB B1 C8 DP FA SC 8 
$6178: CO Ad B2 84 CF SC 05 Cd 
$6180: AS 91 CE C8 DO FB E6 CF 
$6188: A6 CF E®ß CO DO F3 SC 94 
$6190: CO SC B9 CO AC 83 CO AC 
$6198: 83 C® 8D AA 61 AB DO Sc 
$61Aß: A5 61 AB 99 PO DO CE DP 
$61A8: FA EE A5 61 D® F5 AC 8B 
$61Bß: CO AC 8B CQ 8D BE 61 AB 
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Bereich wirklich immer frei ist. Beispiels- 
weise benutzt der Applewriter Ile den 
Stackbereich, um den Text von „unten“ 
nach „oben“ zu übertragen. 


Fall5 


ORG $C400 
STA $C0003 

LDA $2100 

STA $2100 

STA $C002 

RTS 


Im Fall 5 liegt die MMU im Slot-RAM- 
Bereich der Balfer-Interface-Karte, wobei 
hier willkürlich Slot 4 angenommen wurde, 
obgleich sich diese Karte in jedem beliebi- 
gen Slot befinden kann. Da der Slot-RAM- 
Bereich $C400-$CAFF oder allgemein 
$CX00-$CXFF praktisch immer lese- und 
schreibfähig ist, entstehen nicht mehr die 
skizzierten Softswitch-Probleme. Deshalb 
läßt sich der RAM-Bereich $CX00-$CXFF 
sowie der nach LDA $CFFF zusätzlich ak- 
tivierbare Bereich $C800-$CEFF ideal für 
MMU-Utilities unterschiedlicher Art ein- 
setzen. 


$61B8: D® BF A8 99 
$61lCh: C8 FA BF 61 
$elcs: 61 E® FO 8C 
$61D9: AC c® 8l cP® 
$61D8: CP nn) dB 62 
$61EP: 1® D® A9 11 
$61ES: IF 01 A9 BE 
$61Fß: IF dD 2 1E 
$61F8: CO B1 20 58 
Catalog-VTOC für RAM-Disk 
$6299: WW) 
$6298: W) 
$6219: ") 
$6218: nn) 
$6229: ) 
$6228: ) 
6239: 10 
$6238: "") 
$6249: ") 
$6248: W) 
$6259: V) 
$6258: nV) 
$6269: ) 
$6268: WW) 
$6279: Wr) 
$6278: FE 
$6289: FF 
$6288: FF 
$6299: FF 
$6298: FF 
$62AB: FF 
$62AB8: 

$62BB: 

$62B8: 

$62C9: 

$62c8: 

$62DB: 

$62D8: 

$E2EB: 

$62E8: 

$62FB: 





dos 3.3 Er 


2. SLOTRAMDISK-Driver 


Als konkrete Anwendung wird nachfol- 
gend das Assembler-Programm SLOT- 
RAMDISK (als Hexdump) in Verbindung 
mit einem kurzen Applesoft-Programm 
gelistet, das die 64K-Karte als RAM-Disk 
einsetzt, die mit einem beliebigen Slot 
(hier Slot 4) angesprochen werden kann, 
wobei die Drive-Nummer ignoriert wird, 
also 

CATALOG, S4, D1 

CATALOG, S4, D2 

Aus Platzgründen wird der Quellcode des 
RAM-Disk-Drivers nur auszugsweise ab- 
gedruckt, da ein analoger RAM-Disk-Dri- 
ver, der ohne das Balfer-Interface aus- 
kommt, aber softswitchmäßig erheblich 
umständlicher und damit auch etwas lang- 
samer ist, in einem der nächsten Peeker- 
Hefte komplett gelistet wird. 


Als weitere Programme für das Balfer-In- 
terface sind u.a. geplant: 

a) Double-Hires-Printer-Driver 

b) Softbreaker-Utility 

c) Modem-Programm 

d) 80-Z/Z-Karte-Driver 


$62F8: MD DD DO DD DO Bd Bd 
RAM-Disk-Driver $C49ß-$CAFF 
$6300: 2C cd AC 59 84 
$6308: 85 8E 09 CO 84 PP 
$6319: 1 11 CO 85 07 AD 
$6318: CP 08 AB B1 Bl Bd 
$6320: 40 ÖF 8E 98 CO AC 
$6328: BD BD A9Y AB 91 BB 
$6339: BP Aßd dc Bl BB c9 
$6338: FO c9 02 DO EB 85 
$6349: A® Bl 85 PA C8 
$6348: 90 05 CO Bß DA 
$6359: 92 D6 04 Bl 99 
$6358: 29 CE 1d 90 CA 
$6360: DA 18 71 d® 
$6368: 93 c9 
$6379: 19 09 
$6378: 93 8B 
$6389: 9P 83 
$6388: 83 02 
$6399: C9 03 
$6398: 92 F9 
$63Aß: CP co 
$63A8: 91 8E 
$63Bß: 18 91 
$63B8: 98 cd 
$6309: CPQ 19 
$6308: 83 99 
$63D9: 8B CO 8E 08 
$635D8: 6P MD MD BO DO DO DO 


SLOTRAMDISK.HELLO 


PRINT CHR$ (4)'"BLOAD SLOTRAMDISK" 
S= 4: REM Slot 4; Werte 1-7 
POKE 24739,S: REM Slot S 

POKE 24819,96: REM RTS 

CALL 24736: REM INIT J/N 

PRINT "ERLEDIGT" 

PRINT CHR$ (4)"CATALOG,S"S 
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SLOTRAMDISK. 


(Quellcode nur vom Driver) 


ORG 
6BAB: AC AA 69 
6BA3: BA SLOT HEX 


KR KKKKKKKTHK THF THAI KR <&e 


ORG 
u 
IOBL EQU 
IOBH EQU 
AUXL EQU 
AUXH EQU 
BUFL EQU 
BUFH EQU 
BANKFLAG EQU 
ROMFLAG EQU 
RDWRFLAG EQU 


Sprung zur 
ROM, falls 
eingegeben 


* 
%* 
* 
* 
%* 


RESET BIT 
JMP 
* 


SLOTRAMDISK 


$60AQ 


JMP SLOTPOKE 
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Eigentlicher Driver: 


$cap9p 


ZERO+$99 
ZERO+$@1 
ZERO+$92 
ZERO+$93 
ZERO+$94 
ZERO+$95 
ZERO+$97 
ZERO+$P8 
ZERO+$99 


$c982 
$FF59 


RAM-Diskdriver für 64K-Karte 
für Apple IIe (DOS 3.3) mit 
Balfer-Interface. 
Init-Programm aus Platzgründen 
nicht abgedruckt. Kompletter 
Quellcode auf Peeker-Sammeldisk 


U. Stiehl '85 


relokativ! 


‚56309! 


Reset-Adresse im 
aus Versehen PR#S 
wurde. 


;Reset 


* IOB-Pointer in Mainzp + Auxzp 


* 
ENTRY STY 
STA 
STX 
STY 
STA 
* 


$48 
$49 
$c999 
IOBL 
IOBH 


* Rette LC-Status 


* 
LDA 
STA 
LDA 
STA 
. 


$coll 
BANKFLAG 
$c912 
ROMFLAG 


* Pseudo-Disk-Slot? 


* 
SLOT? LDY 

LDA 
. 


#501 
(IOBL),Y 


;Mainzp! 
‚AUXZP 


‚Auxzp! 


‚BK1/2 


; ROM/RAM 


Slot 


* Per absolute Adresse gepokt!!! 


. 
SLOTPOK3 CMP 

BEQ 
* 


+$49 
RDWR? 


Slot 4 


* Zurück zur normalen Rwts 


* 

RWTS STX 
JMP 

* 

* Drive-Error 

* 

IOERROR LDY 
LDA 
STA 
SEC 
BCS 

%* 


$c998 
$BDp4 


#+$0D 
+$49 
(IOBL),Y 


EXBRANCH 


;MAINZP 


;‚Rwts 


‚IO-Err. 


‚Carry! 
‚IO-Error 


* Befehl: 1l=Read oder 2=Write? 


. 
RDWR? LDY 
LDA 
CMP 
BEQ 
CMP 
BNE 


#+$0C 
(IOBL),Y 
+$01 
PUFFER 
+$02 
IOERROR 


;Befehl 
;‚Read 


;Write 


* Pufferadresse: $9209-$BFo9 

%* 

PUFFER STA RDWRFLAG ;RD/WR 
LDY +$98 
LDA (IOBL),Y ;Puff-L 
STA BUFL 
INY 
LDA (IOBL),Y ;Puff-H 
STA BUFH 
CMP #$c9 ‚>$C009? 
BCS IOERROR :No LC! 
CMP #$02 ;<$0209? 
BCC IOERROR ;Zero-P. 


Track und Sektor in Bereich 
der 64K-Karte umwandeln 


$10 -> $PB000 (nur teils) 
$11 -> $1900 

$12 -> $2000 

$13 -> $3900 

$14 -> $4000 

$15 -> $5999 

$16 -> $6000 

$17 -> $7000 

$18 -> $8000 

$19 -> $9000 

$1A $ADDD 

$1B $BopB 

$1C $cO90 wird Bkl $DOWV 
$1D $DopB BKk2 

$1E $Eßß® Bk2 

$1F $FOß0 Bk2 


KRREEKRKKEEKRKKKKTKTKTKFI TFT FF FE I IK I a 
94994949499 494949494994994994994 


LDY #$04 

LDA (IOBL),Y ;Track 
CMP #$29 

BCS IOERROR :>$1F 

CMP #$19 

BCC IOERROR ;<$19 


ASL ‚shiften 
ASL 
ASL 
ASL 


INY ; Y=$05 
CLC 
ADC (IOBL),Y ;Sektor 
STA AUXH 
CMP_ #$01 ;>=$0100? 
BCC IOERROR 
%* 
* Bank 1? $cp00 -> $DPRHd 
* 
BANK1? CMP #$cC9 ;$c099 
BCC READ? ;<$cQd0 
CMP #+$D® ;$DP09 
BCS BANK2 ‚>=$DO0% 
ORA #700010009 ;Cx->Dx 
STA AUXH 
LDX $cp8B 
LDX $cp8B 
GE 
BCC READ? ‚stets 
%* 
EXBRANCH BCS RAMEXIT ‚IO-Error 
%* 
BANK2 LDX $c083 
LDX $c983 
* 
READ? LDY #9 
STY AUXL 
LDA RDWRFLAG 
CMP #1 
BNE WRITE 
* 
* Read = Aux. nach Main 
. 
READ STX $cpp3 
READER LDA (AUXL),Y 
STA (BUFL),Y 
INY 
BNE READER 
STX $cp92 
ZURUECK 
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* Write = Main nach Aux. 


ES 
WRITE STX $cp®5 ; AUXWR 
WRITER LDA (BUFL),Y 

STA (AUXL),Y 

INY 

BNE WRITER 

STX $cp94 ;MAINWR 


* 

ZURUECKl CLC ‚okay! 
LDY #+$0D 
LDA #$90 


STA (IOBL),Y ‚o.Fehler 


LDA ROMFLAG 

BMI ZURUECK2 
LDA $cosl 
LDA $cosl 
BCC RAMEXIT 

ZURUECK2 LDA BANKFLAG 
BPL ZURUECK3 
LDA $C983 ‚BK2 
LDA $C083 ; RDWR 
BCC RAMEXIT 

ZURUECK3 LDA $CP8B ;BKl 
LDA $cd8B ‚RDWR 

* 


RAMEXIT STX $Cp98 ;MAINZP 


RTS 





® 
BIT-WL-JasfeYolu [PCM es] ol-T-1BT-11 TolaW@Hssr:Teisi@el-isW.Velell- 
II, + und Ile so schnell wie die populären 16bit 
[at=TelsloT-Tama DIT-WuT=TauTeYol a [-.7- 0 oI-X-Tel a1[-181s1Te1ae- 111-4 2/0) 
gramme bis zu 31/2 mal - absolut ohne jede Soft- 
ware-Änderung! Einfach einstecken, einschalten 
.. los. 


NUES1eT a Taitolgsarzhatelat-Ia 8 
und Händleranfragen bei: 


R. Alverdes 
Schwarzwaldstr. 8a 
7602 Oberkirch 
Tel.: (07802) 3707 
LADE EIIKIESTT 


18: 1TeYfo@eT-Tet-1,0 9] V, Eu Bi 
in Briefmarken. 


Wir haben die neuste 
Software und Peri- 
[elat-1gt-witigel-TaWuVelell- 
II, II +, lle und Mac. 


Appie und IBM 
kompatible Computer 


16K, Z80, Diskcontroler je 

80 Zeichenkarte mit Softswitch 
2 Zeichensätze 

Motherboard 48K ohne 

Firmware 

Erphi-controler mit Autopatch 

Siemenslaufwerk F 122 

Philips X3134 2x80 Track 

TEAC FD-55B 2x40 Track 

TEAC FD-55F 2x80 Track 


Megaboard (Mainboard XT) 

Color Graphic Card 

Drive Controler 

Monochrome Monitore 

Farbmonitore 

Tastaturen für IBM und Apple ab 330,— 


Versand nur per Nachnahme oder Vorkasse 


Weiteres Zubehör für Apple und IBM gegen 
frankierten Rückumschlag. 


Ulf Mohwinkel Electronic 


Berliner Straße 73 
5090 Leverkusen Fettehenne 








ZUSATZ-KARTEN: 


V-24-Schnittstelle ............ 199,- Z-80-Karte ......... 2.222200. 139,- 
80-Zeichen-Karte m.Softswitch 236,- 16 K-Language-Karte ......... 138,- 
Centronics-Karte von Epson für Graphik... . 210,- für Text... .145,- 
Centronics-Schnittstelle für 2 Drucker gleichzeitig ...........2222.2...- 129,- 
er TE nn Bananen ea Er ee 198,- 
uper-Eprommer 239 
Su keinen SIöt, incl. Software für 2708-27128 ............ Vi 
128- K-Karte ee ea Br era wre auf Anfrage 
FDC 4 für alle Laufwerke PPY-, - Bausatzwielinks ............ 179,- 
Leerplatine wie oben incl. Promu.Eprom ............22s seen 130,- 


Auto opatch- -Controller (Erphi Controller) 


1x35bis2x8 Disk, keine Patch-Disk notwendig, Patch DOS 3.3, Diversi- 
DOS 2-C, 4-C (DD MOVER), Pascal 1.1, Pascal 1.2, CPM 2.2, ee 
1.0.1, 1.1,1.1. Sie können die Laufwerke untereinander mischen 98, - 


Gehäuse für 15Ya’ Slimline Laufwerk ....:.. 2. ccm nennen 39,- 
Gehäuse für 2 5%" Slimline Laufwerke mit Platz für ein Netzteil ......... 159,- 
Gehäuse für 2 3%” Slimline Laufwerke mit Platz für ein Netzteil .......... 79,- 
ERBEN ui a a a ae nen 229,- 
Floppy-Kabel 34pol. für 2 Laufwerke mit Shugart-Bus ...............-. 35,- 


Preh Commander Keyboards 


Wir bieten Ihnen die Preh-Qualität auch für Apple. AK 88 Spez. mit Gehäuse, An- 
schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, Sondertasten für 

Ctrl-Codes und Rechenfunktionen ............222220r0rerenen 339,- 
Preh Commander Keyboard AK 87, frei programmierbar 

bis zu 10 Ebenen, pro Taste bis zu 250 Zeichen ............-.......- nur 559, es 


TEAC 3%" Laufwerk FD 35 F579.- 


Speicherkapazität 1 MB, (formatiert 640 KB) ) jetzt INN une 





——.: 


Nochmalige Preissenkung bei TEAC: 


TEACFDS5S5A1x40 Track ..... 498,- TEACFD55B2x40 Track ..... 579,- 
TEACFD55E1x80 Track ..... 535,- TEACFD5S5SF2x80 Track ..... 638,- 
Philipps Slimline Floppy X3134. A, 2x80 Track solange Vorrat ......... nur 569,- 
Philipps 2 x 80 Track, %3 Bauh. ........: 22222 cneeeeeeeeeeneen en 490,- 
SONT 3W Lautwerk -: 22: 2420 aan Fur nur 799,- 
Sony Laufwerk für Ilc .......... auf Anfrage 
Apple®-Kompatibles Laufwerk incl. Gehäuse + Kabel ................ ,- 
EPSON FX80 ............... 1670,- EPSON FX100 .............. 2159,- 
EPSONRX80 .............. 1079,- EPSONRX8OFT ............ 1295,- 
Patch-Diskette für SONY 3%" Laufwerke — ermöglicht die Anpassung an Il/lle und 
kompatible Computer. ......... 80,- Manual vorab 15,-DM (wird beim Kauf 
der Patch-Diskette angerechnet). dto. für 5Y4" Laufwerke ........ 69,- 
Disketten Döb&Böd SS/DD 10St. 62,- 10 Disketten f.Sony 3/2" Laufw. .150,- 
Akustikkoppler AK 300 mit FTZ-Nr. incl. Netzteil ........... 222222... 549,- 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2x 1 MByte for- 
matiert: 2x 640 kByte. Anschlußfertig 
mit PROM-residenter Patchsoftware 
für CP/M 2.2, Apple DOS 3.3, Diversi- 
DOS 2-C, 4-C (DD MOVER), Apple 
Pascal 1.1, Pascal 1.2, Pro-DOS 
1.0.1, 1.1, 1.1.1 zum 

PIBISVON »udscu sus 1640,- 


Low Power Version ........ 1740, - 


10 MB Winchester  4490,- 
Sonderangebot 


Disketten 3%" DS DD, 10 Stück 


zum Preisvon ..... a ee ee nee 150,- 


Gesamt-Preisliste anfordern! 





Preise inclusive gesetzlicher Mehrwertsteuer. 


Or-To Tote = 17-105 4 ge] ı Let- 


DFÜ 02373/66877 
Tel. 02373/63159 


Holtewiese 2 
5750 Menden 





15 


APPLE I 
AIXCAL 


Betriebssystem 


APPLE II PASCAL 


APPLE | 
AICAL 


Sprache 


Betriebssystem und 


Sprache 


Erstes deutsches Referenzwerk sämtlicher Befehle 
und Systemroutinen von Apple II Pascal -— mit Adden- 
dum einschließlich Version Pascal 1.2! 


Gültig für Apple II, I Plus, De einschließlich der 
128K/80 Zeichen-Konfiguration. 


Betriebssystem kommentiert ausführlich und in 
Deutsch Funktion und Benutzung der fast 60 System- 
routinen des Apple II Pascal Betriebssystems. 


Sprache ist das vollständige, deutsche Referenzwerk 
der „Apple Pascal“-Programmiersprache mit u.a. Infor- 
mationen über professionelle Pascal-Programmierung, 
Turtlegraphics, Programmbibliothek etc. 


Apple Il ae In Vorbereitung: Addendum Pascal 1.2, ein 


Zusatz zum Buch „Betriebssystem“ für 1.2-Benutzer in 


272 Seiten, DM 


Apple II Sprache, 


216 Seiten, DM 


39, 


Pascal 1.2 Addendum, etwa 100 Seiten, 


DM 36,- 


Deutsch. 


„Nach Unterlagen von Apple Deutschland hergestellt“ 


te-wi Verlag GmbH 


[= 
Theo-Prosel-Weg 1 ll 
8000 München 40 


Weiterführende Literatur... 


ı APPLEI- 
= Anwenderhandbuch 


(L. Poole) 


Erst mit Hilfe dieses Leitfadens werden Sie | 


1 Ihren Apple Il erfolgreich einsetzen, denn 
Be ext und Bildmaterial gehen weit über das 


hinaus, was herstellerseitig an Literatur 
angeboten wird. 


416 Seiten, Softcover, DM 56,- 


anal 
PASCAL 


APPLE II PASCAL - 
Eine praktische Anleitung 
(A. Luehrmann, H. Peckham) 


= Unentbehrlich für alle, die die Programmier- 


# sprache PASCAL lernen wollen und 
“= /ugang zu einem Apple-Computer haben. 


ARTHUR LUEHRMANN : HERBERT PECKHAM 


544 Seiten, Softcover, DM 59,- 


] Computer für Kinder 
(Sally Greenwood Larson) 
Ein Buch für Kinder, ihre Lehrer 
und Eltern. 
„Computer für Kinder“ richtet 
sich an Kinder im Alter von 8 bis 
13 Jahren, für deren Interesse an 
Computern dieses Buch bewußt 
geschrieben wurde. 


Unterhaltsam und leicht verständlich. 


A4 quer, Fadenheftung, DM 29,80 





LOGO - 

Jeder kann programmieren 

(Daniel Watt) 

Buch des Jahres in den USA. Für die 
Computer C64, ATARI, APPLE Il, IBM-PC 
und TI-99. 


Hochwertiges Textbuch für Logo-Kurse für 


W zu Hause und im Lehrbereich. 


A4, DM 59,— 


APPLE II - Bewegte 3D-Graphik 

(Phil Cohen) 

Selbstentworfene Graphiken und Dia- 
gramme — animiert oder als Standbilder — 
eben oder räumlich: alle erforderlichen 
BASIC-Programme mit Erklärung finden 
Sie in diesem Buch. 

ca. 190 Seiten, Softcover, DM 49,— 


Apple Maschinensprache 

Für BASIC-Programmierer der einfachste 
Zugang zur Muttersprache des Apple. Wesent- 
lich schnellere Maschinenprogramme, direkte 
Manipulation des Mikroprozessors 6502 im 
Apple — als Brücke dorthin benötigt dieses 
Buch nur die drei BASIC-Befehle, POKE, 
CALL, PEEK. D. Inman/K. Inman. DM 49, — 


Noch im Programm: 
6502 - Programmieren in Assembler DM 59,- 
VisiCalc, 50 Programme auf Diskette, DM 79,- 


In Vorbereitung: 
Macintosh Programmier-Handbuch DM 59,- 
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Ein komfortabler Funktionsplotter 


von Hans-Martin Eng 


Kennen Sie auch das folgende Problem? Vor Ihnen liegt eine mathemati- 
sche Funktion und Sie können nichts damit anfangen. Hilfreich wäre es 
jetzt, wenn man wüßte, wie deren grafische Darstellung aussieht. Wer 
jedoch schüttelt sich eine fertige Kurvendiskussion aus dem Handgelenk 
und hat dann auch die Gewißheit, daß alles stimmt? Und wer wollte schon 
die Funktion Punkt für Punkt mit der Hand malen? Aber da Sie einen 
Apple besitzen, kann ich Ihnen Abhilfe versprechen. Das nachstehende 
Plotprogramm nimmt Ihnen das Zeichnen ab. 
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Grafik 4 








Was kann PLOT 2.0? 


Bei der Erstellung wurden folgende Anfor- 
derungen berücksichtigt: Das Programm 
soll 

— die Eingabe der Funktion während des 
laufenden Programms gestatten, 

— weitgehend menügesteuert ablaufen, 

— sogenannte Scharparameter (r, s und t) 
unterstützen und die Funktion in Abhän- 
gigkeit von diesen Parametern mehrmals 
zeichnen, 

— die Funktion in einem üblichen Achsen- 
Kreuz darstellen, das mit einer Skalenein- 
teilung versehen ist, 

— „Pole“ und andere Stellen, an denen die 
Funktion nicht definiert ist, intern ab- 
fangen, 

— während die Funktion gezeichnet wird, 
eine Zusammenfassung wichtiger Daten 
auf der Textseite bereithalten und auf Ta- 
stendruck wiedergeben, 

— auf Druckern mit Grafikinterface die Gra- 
fik nebst sämtlichen verwendeten Darstel- 
Iungsparametern ausdrucken. 

Unter Berücksichtigung dieser Vorgaben 
entstand das Applesoft-Basicprogramm 
PLOT.2.0 mit dem Assemblerprogramm 
PLOT.B. PLOT.2.O lädt sich selbst in den 
Speicherbereich oberhalb der ersten Gra- 
fikseite ($4001), dann PLOT.B in den Be- 
reich zwischen $0DOO und $0EOE. Das 
Programm belegt ca. 13400 Bytes. Dabei 
ist der Speicherbedarf der Variablen und 
des Maschinenprogramms nicht berück- 
sichtigt. 


Die Theorie des Plottens 


Hier einige Erläuterungen zum Programm 
und den darin auftauchenden Formeln und 
Algorithmen: 

Der Zusammenhang zwischen Bildschirm- 
und normalen Koordinaten ist linear. So 
können die Bildschirmkoordinaten als ein- 
fache Funktionen xs (x), ys (y) wiederge- 
geben werden. Allgemein kann der Zu- 
sammenhang zwischen Bildschirm- und 
Normalkoordinaten wie folgt definiert 
werden: 


S-S|, _ Sy-SL s: Schirmkoordinate 
n—n, Ny—N, n: Normalkoordinate 
Indizes: H-größter Wert, L-niedrigster Wert 








Eine einfache Umformung liefert: 


SH=SL, 


N4S, —SuN 
' ri HL 
Ny=NL 


e- Nu=NL 
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Im besonderen gilt im Falle des Hires- 
Bildschirms für die x-Koordinaten: 


Ss, = 271;s| = O0; nun, —xXH, xL 
und für die y-Koordinaten: 


SH — 0; SL — 191; NY, n. —yH, yL 


Nun erfolgt noch die Umbenennung der 
Terme. Der Faktor vor dem n wird durch 
MX oder MY ersetzt, der Summand durch 
BX oder BY (analog zur Normaldarstellung 
der Geradengleichung: y = mx + b). So- 
mit erhalten wir die Darstellung der Funk- 
tionen XS (X) und YS (X) in Zeile 3520 des 
Programms. 


Die Halbkreisfunktion F(X) = SOR (R* R- 
X x X) im Intervall [-6,6]. Der Parameter R 
nimmt die Werte 2 und 4 ein. 


Vielfältige Darstellungsmöglichkeiten 


Der Darstellungsmaßstab wird durch Ein- 
gabe der Darstellungsgrenzen festgelegt. 
Da man jedoch beispielsweise bei der 
Halbkreisfunktion gerne einen Halbkreis 
sehen möchte und nicht irgendeine (wenn 
auch hübsche) Ellipse, wurde die Möglich- 
keit geschaffen, den Maßstab der x-Achse 
dem der y-Achse anzupassen. Diesen 
Wunsch signalisiert man durch die Einga- 
be „O,O“ oder „‚“ für eine Achse. Das 
Ergebnis ist jedoch oft noch nicht befriedi- 
gend. Daher können noch nachträglich 
kleine Veränderungen am Maßstab vorge- 
nommen werden. Man kann die Achsen 
strecken oder stauchen und außerdem 
das Verhältnis der positiven zur negativen 
Teilachse beeinflussen. Das geschieht 
durch die Eingabe zweier Zahlen. Bei der 
Streckung gibt man an, in welchem Ver- 
hältnis die alten zu den neuen Grenzen 


stehen sollen (2,1 heißt, daß die neuen 
Grenzen halb so groß wie die alten sind). 
Ändert man das Verhältnis der Teilachsen 
zueinander, bleibt der Maßstab unberührt. 
Nachdem die Anpassung durchgeführt ist, 
verhält sich der positive Teilast zum nega- 
tiven wie die zuerst eingegebene Zahl zur 
zweiten (z.B. vorher: XL = -3, XH = 3, 
Eingabe: 2,1; danach: XL = -2,XH = 4). 
Die Funktion selbst wird wie eine Basic- 
Zeile eingegeben, wobei das „DEF FN 
Y(X) =“ schon vorgegeben ist. Hier ein 
Beispiel: 


Y=SIN(X)%*T 


Nach der Eingabe werden Sie gefragt, ob 
alles stimmt. Dies ist der kritischste Punkt. 
Ein Syntaxfehler führt zum Programmab- 
bruch, wenn die Funktion zum ersten Mal 
verwendet wird. 


Scharparameter 


Im Programm sind die Variablen R, Sund T 
(r, s und t) als Scharparameter vorgese- 
hen. Diese machen meines Erachtens 
manche Funktionen erst interessant. Be- 
stes Beispiel: f(x) = exp (tx). Für jedes t 
hat diese Funktionenschar einen gemein- 
samen Punkt in (0,1). Oder f(x) = sin (x-t): 
Ist t ein gerades Vielfaches von rn, sind 
beispielsweise die Schaubilder deckungs- 
gleich. Jeweils nach der Eingabe einer 
Funktion wird gefragt, ob, und wenn ja, 
welche Parameter in der Funktion verwen- 
det werden. Wird speziell T verwendet, 
bietet das Programm die Option an, T in 
einer FOR-NEXT-Schleife zu durchlaufen. 
So kann man sich lästiges Neueintippen 
sparen. 

Das Programm legt die Parameterwerte in 
einer Art Stack ab. Dazu wird der Pointer I 


Die Exponentialfunktion F(X) = S* EXP (- 
RxXxX) x COS (T x» X) zwischen den 
Grenzen -8und8(R=0,1;5=1;T=2). 
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erhöht, wenn eine Kurve bis zum rechten 
Rand durchgezogen ist. Dann kommen die 
Parameterwerte in das Array P und die 
Stelle (x, I). | wird wieder auf 0 gesetzt, 
wenn der Darstellungsmaßstab oder die 
Funktion geändert oder die Grafik gelöscht 
wird. Beim Ausdrucken werden die Ele- 
mente des Arrays bis zum aktuellen Poin- 
terwert ausgegeben. 

Wenn Sie die Kreiszahl un oder die Euler- 
sche Zahl e benötigen, müssen Sie diese 
nicht als Konstanten in die Funktion 
schreiben. Die Variablen E und Pl werden 
am Anfang des Programms auf den richti- 
gen Wert gesetzt, Sie können sie also in 
die Funktion einbauen. Ebenso stellt das 
Programm den Briggsschen (Zehner-)Log- 
arithmus als FN LG(X) zur Verfügung. 







N NY 
KL 


NUN 
&> UEILIEINN, 


Die Funktion F(X) = COS (X-T x PI/3) im 
Bereich -6,3; 6,3. Der Parameter T durch- 
läuft die Werte 0, 1, 2, 3, 4, 5. 


Die Achsen 


Das Unterprogramm zum Achsenzeich- 
nen (4900 ff.) zieht die y-Achse zwischen 
xs(0), O und xs(0), 191; die x-Achse zwi- 
schen 0, ys(0) und 271, ys(0). Dann wird 
festgestellt, ob eine der Achsen am Rand 
des Bildschirms zu liegen kommt. Ist dies 
der Fall, wird eine Korrekturvariable ge- 
setzt, die dafür sorgt, daß der Skalenstrich 
um zwei Bildschirmraster vom Rand weg 
verschoben wird. Dann wird der betrags- 
größte Wert der Darstellungsgrenzen ei- 
ner Achse an ein Unterprogramm (3620 
ff.) übergeben. Dieses sorgt dafür, daß der 
längere Teilast einer Koordinatenachse 
maximal zehn Skalenstriche aufweist. 


Druckerausgabe 


Die Printroutine (5100 ff.) ist auf einen 
EPSON FX-80 mit Vollgrafikinterface zu- 
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geschnitten. Daher erkläre ich besser, was 
die Steuerbefehle bedeuten: 

PRINT CHR$(9); CHR$(16) stellt den 
Command-Character des Interface auf 
CHR$(16) um. 

ESC M stellt Schönschrift mit 96 Zeichen/ 
Zeile ein. 

ESC | setzt den linken Rand auf Spalte 6. 
ESC Q setzt den rechten Rand auf Spalte 
90. 

ESC A setzt einen höheren Zeilenabstand. 
ESC D definiert Tabulatorpositionen. 

ESC N bewirkt, daß der Drucker die Perfo- 
ration überspringt. 

CHR$ (9) befördert den Druckkopf auf die 
nächste Tabulatorposition. 

PRINT CHR$ (16);"G“ veranlaßt das In- 
terface, die Grafik in Normalgröße auszu- 
drucken. 


Fehlerbehandlung 


Zur Fehlerbehandlungsroutine muß nicht 
viel angemerkt werden. Zuerst wird eine 
Maschinenroutine aufgerufen, die ein 
„Überlaufen“ des Stacks verhindert. Dann 
wird die Art des Fehlers überprüft. Wurde 
Otri-C gedrückt, springt das Programm ins 
Hauptmenü ab Zeile 1800. Anwenderfeh- 
ler beim Input bewirken dasselbe wie im 
normalen Betrieb. Tritt ein „Division by 
Zero“-, „Illegal Quantity“- oder „Over- 
flow“-Error auf, wird ein neuer Anfangs- 
wert von X gesetzt und die Zeichenschlei- 
fe neu gestartet. Bei allen anderen Fehlern 
wird auf Textdarstellung umgeschaltet und 
eine Fehlermeldung ausgegeben. Ach- 
tung! Tritt ein Syntaxfehler in Zeile 1680 
auf, so ist meist ein Eingabefehler bei der 
Funktionseingabe schuld. Prüfen Sie des- 
halb genau nach, ob alle geöffneten Klam- 
mern auch wieder geschlossen werden. 


Programmverschiebung 


Die Zeilen 5600 ff. treten in Aktion, wenn 
das Programm nicht im Speicherbereich 
oberhalb der ersten Grafikseite liegt. Dann 
wird der Execfile PLOT.PROTECTOR 
aufgerufen. Dieser Execfile sollte die fol- 
genden Befehle enthalten: 

POKE 103,1:POKE 104,64:POKE 16384,0 
(setzt den Pointer zum Anfang des Ap- 
plesoftprogramms auf $4001 und die 
Adresse $4000 auf 0.) 

LOAD PLOT.2.0, CALL 54514 (diese 
Routine setzt die übrigen Pointer richtig), 
RUN. 








Die Funktion F(X) = 7X mitT = -T und 1 
im Intervall [-10, 10]. 


Alternativ dazu kann man auch ein kurzes 
Programm schreiben, das den Execfile di- 
rekt aufruft. Das kann erhebliche Zeitvor- 
teile bringen, da das zweimalige Laden 
des Hauptprogramms doch einige Zeit in 
Anspruch nimmt. 


Die Assemblerroutinen 


Das Assemblerprogramm gliedert sich in 
vier Teile auf. Der erste Teil besteht aus 
dem Unterprogramm, das die darzustel- 
lende Funktion einliest, in den Basiccode 
übersetzt und in die Zeile 2 des Basic- 
programms überträgt. Der zweite Teil 
übersetzt den Inhalt dieser Zeile zurück in 
ASCII-Code und schreibt alles in einen 
Puffer. Der dritte Teil ist eine Hilfsroutine 
für die Fehlerbehandlung in Zeile 5500 ff. 
Der vierte Teil besteht aus Tabellen. Den 
Eingabeteil (Zeilen 45 bis 95) übernahm 
ich aus einem im CHIP Special 2/80 veröf- 
fentlichten Programm. Ich erlaubte mir, 
das dort nur vom Miniassembler disas- 
semblierte Programm mit einem besseren 
Assemblerprogramm in eine lesbarere 
Form zu bringen. Außerdem mußte ich 
einen relativ bösen Tippfehler des Autors 
korrigieren. Mir passierte es nämlich zu 
Anfang, wenn sich im Speicher noch eine 
alte, längere Funktion befand, daß diese 
alte Funktion nicht vollständig gelöscht 
wurde. Dies führte zu Syntaxfehlern im 
Basicprogramm. Des weiteren fügte ich 
Zeile 45 ein, da das sich anschließende 
Rückübersetzungsprogramm sehr regen 
Gebrauch von den Registern macht. 

Diese Routine beginnt mit Zeile 100. Sie 
nimmt ein Byte aus Zeile 2 und verzweigt 
dann, je nachdem, ob es sich um ein Ba- 
sic-Token oder ein ASClIl-Zeichen han- 
delt. Ein ASCII-Zeichen wird direkt in den 
Puffer geschrieben. Bei einem Token wird 
dessen Wert mit denen der Tabelle 2 ver- 
glichen, dann wird aus Tabelle 3 der zuge- 
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hörige Pointer entnommen. Dieser Pointer 
zeigt auf das Leerzeichen am Anfang der 
zugeordneten Zeichenkette. Das nächste 
Leerzeichen signalisiert das Ende des 
Strings. Ist die Funktion als Ganzes über- 
setzt, steht in STRPNTL die Länge des 
Funktionsstrings im Puffer. Zum Schluß 
werden die von Zeile 45 geretteten Regi- 
ster wieder zurückgespeichert, dann 
springt das Unterprogramm wieder in das 
Basicprogramm. 

Eine Bemerkung zur Token-Tabelle. Ich 
verzichtete bewußt darauf, alle möglichen 
reservierten Wörter zu berücksichtigen. 
Ich sehe nicht ganz ein, was ein FRE(O) in 
einer mathematischen Funktion zu suchen 
hat. Wer jedoch Wert auf irgendeinen 
Exoten legt, sollte diesen zur Tabelle 1 


PLOT.2.0 


3 GOTO 1999 
2 


u EEE EFT EEE EEE ET TE ee 


EEE EEE ER RU TE ET U BE EN 
EU ESEL ER R FT MEET EEE ER RUE ER Eee m 


EURER EZ REF LEI DET RE LE ER Fa ee 


3 RETURN 


4 REM Bitte erhöhte Vorsicht beim Ändern der ersten 


Programmzeilen walten lassen! 


5 REM Dies kann zu bösen Überraschungen bis hin zum 


Programmverlust führen! 
100 IF PEEK (194) < 64 THEN 5699 


Dame ae Ber er Be ee ee ee 


hinzufügen, dann abzählen, ab dem wie- 
vielten Byte nach der Startadresse der Ta- 
belle 1 das Space steht und diesen Wert 
zur Tabelle 3 hinzufügen. Anschließend ist 
noch in Tabelle 2 das Token einzutragen 
und der Wert von $0D6B um 1 zu erhö- 
hen. Findet die Übersetzungsroutine ein 
unbekanntes Token, wird ein „?“ in den 
Puffer geschrieben. 

Die Maschinenroutine in den Zeilen 164 
bis 172 erwies sich als nötig, weil manche 
Funktionen (etwa die Halbkreisfunktion) 
über einen weiten Bereich keinen reellen 
Wert annehmen. Treten jedoch solche 
Fehler gehäuft auf, läuft der Stack schein- 
bar über und es tritt ein „Out of Memory 
Error“ auf. Die genannte Routine bereinigt 
dieses Problem auf einfache Weise. Ich 


PRINT "Gebrauch machen wollen."; 


habe das Programm selbst durch ein stän- 
diges F(X) = SOR(-1) nicht aus der Fas- 
sung bringen können. 

SHTABLE schließlich enthält einen kleinen 
Strich als Shape. Dieser Strich bildet in der 
Grafik die Skaleneinteilung. 

So, nun bleibt Ihnen nur noch übrig, das 
Programm in Ihren Apple einzuprogram- 
mieren oder die entsprechende „Peeker”- 
Sammeldiskette zu bestellen. Ich wün- 
sche Ihnen viel Spaß beim Plotten Ihrer 
Funktionen. 

Anmerkung: Beim Eintippen der Zeile 2 ist 
darauf zu achten, daß exakt 228 Doppel- 
punkte getippt werden. Das Zählen kann 
man sich sparen, wenn man die Zeile ohne 
Leerzeichen bis zum ersten Piepston ein- 
gibt. 


: GET A$: PRINT 


PRINT "Nach jeder Eingabe werden Sie gefragt,": 
PRINT "ob Eingabefehler aufgetreten sind, Sie": 
PRINT "können dann gegebenenfalls korrigieren." 


PRINT "Während die Funktion gezeichnet wird,': PRINT 
EEE "kann man durch Betätigung einer Taste": PRINT "auf 
den Textbildschirm umschalten. Dort": PRINT "steht 
eine Kurzzusammenfassung wichtiger" 

PRINT "Daten. 


Nochmaliges Betätigen einer Tas-": 


PRINT "te läßt wieder die Grafik erscheinen." 


PRINT "Wenn Sie <Ctrl-C> betätigen, springt": PRINT 


"das Programm ins Hauptmenü. Dort kön-": PRINT "nen 


etwa aufgetretene Eingabefehler": PRINT "korigiert 


und die Funktion neu gezeich-": PRINT "net werden.": 


GET A$ 


GOSUB 3ßßß: GOSUB 3709: GOSUB 3969 


101® ONERR GOTO 55ß®: REM diverse Konstanten 


1920 
1939 


1949 


1199 
1119 
1129 
1139 


PI = ATN (l) * 4:E = EXP (1):CH% = 36:CL% = - 
868:KE% = - 16384:APZ = 3072 

HT$ = CHR$ (9):E$ = CHR$ (27):D$ = CHR$ (4):DP$ = 
CHR$ (16): DIM P(2,29): DEF FN LG(X) = LOG (X) / LOG 
(19) 

AS% = 3328: IF PEEK (ASZ) < > 32 OR PEEK (AS% + 29) 
< > 213 OR PEEK (AS% + 270) < > 57 THEN PRINT 
D$;'"BLOAD PLOT.B,A";AS%Z 

POKE 233,13: POKE 232,162: REM SHAPE-TABLE 

HOME : PRINT TAB( 16) ;"PLOT.2.9" 

VTAB 19: PRINT TAB( 11);"Von Hans-Martin Eng" 

VTAB 12: PRINT TAB( 13);"September 1983" 


1140 VTAB 14: PRINT TAB( 15);"Erweitert :" 

1150 VTAB 16: PRINT TAB( 14);"Juni/Juli 1984" 

116® VTAB 18: PRINT TAB( 11);"Letzte Änderungen :" 
1178 VTAB 28: PRINT TAB( 11) ;"Oktober/November 1984"; 
1180 VTAB 21: POKE — 16368,®: GET A$ 


1199 


1299 
121® 


1229 


1239 


1249 


1259 
1269 


1279 
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HOME : PRINT "Wünschen Sie eine Kurzeinführung ?": 
PRINT "Betätigen Sie bitte 'J' oder 'N'" 

GOSUB 4700: IF A$ = "N" THEN 1339 

HOME : PRINT "Dieses Programm stellt Funktionen in": 
PRINT "hochauflösender Grafik auf dem Bild-": PRINT 
"schirm dar. Etwa auftretende Polstellen": PRINT 
"werden intern abgefangen, der Darstel-" 

PRINT "lungsmaßstab ist durch Wahl der Darstel-": 
PRINT "lungsgrenzen (relativ) frei festlegbar.' 
PRINT "Die Ludolfsche Zahl (Pi) und die Euler-": 
PRINT "sche Zahl (e) können ebenso, wie": PRINT 
"Funktionsparameter (r,s,t) in der Funk-'": PRINT 
"tion verwendet werden. Auf diese Weise" 

PRINT "sind Funtionsscharen darstellbar. Die': PRINT 
"Scharparameter werden vor dem Zeichnen": PRINT 
"abgefragt." 

PRINT "zum Beispiel :'": PRINT " Y=R x SIN (2 « PI / 
S* X - T)" 

PRINT "oder :": PRINT" Y= (X\-T) / (X«X+l) « 
(E - EXP(X))" 

PRINT "Der Parameter 'T' kann sukzessive mit': PRINT 
"diskreten Werten durchlaufen werden.': PRINT "Wenn 
Sie 'T' verwenden, werden Sie ge-": PRINT "fragt, ob 
Sie von dieser Möglichkeit" 


REM Zusammenfassung 

HOME : PRINT "Zusammenfassung :" 

PRINT "Die Funktion lautet :": PRINT : PRINT F$ 
PRINT : PRINT : PRINT "Parameter ";: ON VAL (P$) 
GOTO 1399,1499,1419,1429,1439,1449, 1459 

PRINT : PRINT "Es werden keine Parameter 
verwendet.": GOTO 147® 

PRINT "R": GOTO 1479 

PRINT "S": GOTO 147% 

PRINT "T";: GOTO 146® 

PRINT "R und S": GOTO 1479 

PRINT "R und T";: GOTO 1469 

PRINT "S und T";: GOTO 146% 

PRINT "R,S und T"; 

IF RIGHT$ (P$,1) = "K" THEN PRINT " / T in Schleife" 
PRINT : PRINT : PRINT "Grenzen :'": PRINT TAB( 5);"X 
» MX ... Mei 

PRINT TAB 5957 ; I RS# m 

VTAB 23: PRINT TAB( 2®);'"Noch Fehler ? ";: GOSUB 
4700: IF A$ = "N" THEN 159 

HOME : PRINT "Wo traten noch Fehler auf ?" 

VTAB 6: HTAB 19: PRINT "1 — Funktion" 

VTAB 19: HTAB 19: PRINT "2 - Parameter" 

VTAB 14: HTAB 19: PRINT "3 - Darstellungsgrenzen'" 
VTAB 18: HTAB 19: PRINT "® - keine Fehler" 

VTAB 23: HTAB 13: PRINT "Betreffende Taste drücken"; 
GET A$: IF VAL (A$) = Ö AND A$ < > "Q" OR VAL (A$) > 
3 THEN 156® 

ON VAL (A$) GOSUB 3909, 3700 , 3060 

GOTO 1359 

REM Jetzt wird gezeichnet 

GOSUB 4419: REM Parametereingabe 

HGR : POKE - 16302,0: POKE 253,2: HCOLOR= 3: SCALE= 
1: GOSUB 4999 

X8 = 0:ST= 1 / MX: REM Initialisierung 

IF RIGHT$ (P$,1) = "K" THEN FOR T = T® TO Tl STEP 
TS: REM Starte T-Schleife 

GOSUB 4609:XA = XL: REM Generiere Liste in Textseite 
X = XA: IF X > XH THEN 1759: REM Start x-Schleife 
IF PEEK (KEZ) > 128 THEN GOSUB 4799: REM umschalten? 
VTAB 23: HTAB 14: PRINT X; SPC( 1®);: REM x in Liste 
IF X0 = ® THEN X® = FN XS(X):YßO = FN YS( FN Y(X)): 
GOTO 17590: REM Ausgangspunkt 





Peeker 5/85 


ee 





1699 
1708 
1719 
1728 


1739 


1749 


1750 
1769 


1770 


1789 
1790 
1809 


1819 
1828 
1839 
1849 
1859 
1869 
1870 
1889 
1890 
1909 


1919 
1929 


1930 
1949 
1959 
1969 
1979 
1989 
1999 


2009 
2019 
2029 
2030 
2040 
2059 
2069 
2070 
2089 
2090 
2199 
2118 
2128 
2139 


2149 
2159 
2989 
2999 
3099 


3019 
3029 


3039 
3040 
3059 
3069 
3079 


3089 
3999 


3199 


3119 


3129 
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xl = FN XS(X):Yl = FN YS( FN Y(X)): REM Endpunkt 
IF YA < ® THEN Y1 =: REM gegen 'Illegal Quantity' 

IF Y1 > 191 THEN Yl = 191 

IF Yl = 191 AND Y® = 191 OR Yl = ® AND Y® = ® THEN 
x = ®: GOTO 1759: REM => Pol 

IF Yl = Ö AND Yß = 191 OR Yl = 191 AND Y® = ® THEN 
X0 = ®: GOTO 1689: REM Keine Verbindung zwischen 
Polen 

HPLOT X0,Y0 TO X1,Y1:X0 = X1:Yß = Yl: REM Zeichnen / 
neuer Ausgangspunkt 

IF X < XH THEN X = X + ST: GOTO 1669 

I= 1I+ 1:P(8,I) =R:P(1,I) = S:P(2,I) = T: REM 
Parameter-Liste 
IF RIGHT$ (P$,1) 
1639 

GET A$: REM Warteschleife 

POKE 253,1: GOSUB 4809: HOME : REM Text / Hauptmenü 
PRINT "Wollen Sie :": VTAB 6: PRINT "1 - 
Darstellungsgrenzen ändern" 

VTAB 8: PRINT "2 - Parameter ändern" 

VTAB 18: PRINT "3 — Funktion ändern" 

VTAB 12: PRINT "4 - Bildschirm säubern" 

VTAB 14: PRINT "5 - Alte Daten auflisten" 

VTAB 16: PRINT "6 —- Wieder zeichnen" 

VTAB 18: PRINT "7 — ausdrucken" 

VTAB 23: PRINT "8 — aufhören" 

GET A$: IF A$ =" THEN GOSUB 4899: GOTO 1889 

IF VAL (A$) < 1 OR VAL (A$) > 8 THEN 188 

ON VAL (A$) GOTO 1929,1959,1989,2019,2940,2079, 
2100 ,2139 

REM 1 Darstellungsgrenzen 

GOSUB 3069: HGR : POKE — 16392,9: HCOLOR= 3: GOSUB 
4900: GOTO 1799 

REM Eingabe Grenzen/zeichne Achsen und skaliere/Menü 
REM 2 Parametereingabe 

GOSUB 4499: GOTO 1799 

REM Eingabe Parameter/Menü 

REM 3 Funktionseingabe 

GOSUB 3909: GOSUB 3700: GOSUB 4419: GOTO 1799 

REM Eingabe Funktion/Parameter?/Parametereingabe/ 
Menü 

REM 4 Bildschirm 

I = ®: HGR : POKE - 16392,9: GOSUB 4999: GOTO 1799 
REM Zeichne Achsen und Skala/Menü 

REM 5 Datenliste zeigen 

GOSUB 469: GOTO 178% 

REM Zusammenfassung / Menü 

REM 6 Zeichnen 

POKE 253,2: GOSUB 4899: GOTO 162® 

REM Grafikseite/Menü 

REM 7 Ausdrucken 

POKE 253,2: GOSUB 4809: GOSUB 5199: GOTO 1799 

REM Grafikseite/Ausdruck/Menü 

REM 8 Programmende 

TEXT : HOME : VTAB 19: PRINT "Hoffe, es hat Spaß 
gemacht |!" 

VTAB 29: HTAB 36: PRINT "HME"; 

END : GOTO 1798: REM für evtl. CONT 

REM Anfang Subroutinen 

REM Funktionseingabe 

I = : HOME : PRINT "Bitte geben Sie die 
darzustellende'": PRINT "Funktion ein !" 

VTAB 19: PRINT F$: VTAB 19: GOSUB 5499 

VTAB 1®: CALL CL%: PRINT F$;: CALL CL%: PRINT : VTAB 


"K" THEN X = ®: NEXT T: REM s. 


22: PRINT "Ist das richtig ? ";: CALL CLZ 
GOSUB 4700: IF A$ = "N" THEN PRINT "Bitte 
korrigieren !": GOTO 3®19 

RETURN 


REM Darstellungsgrenzen 

IF NOT (XL = ® AND XH = ® AND YL = ® AND YH = ß) 
THEN HOME : GOTO 3269: REM alte Werte zeigen 

HOME : PRINT "Bitte Grenzen eingeben! (Anweisungen?)'" 
GOSUB 4709: IF A$ = "N" THEN VTAB 17: GOTO 3159 
PRINT : PRINT "Soll der Maßstab der x-Achse dem 
der'': PRINT "y-Achse angeglichen sein, geben Sie 
die": PRINT "gewünschten Darstellungsgrenzen für": 
PRINT "e i ne Achse ein, für die andere": PRINT 
"einfach 98 ." 

PRINT "Werden kleinster und größter Wert in": PRINT 
"falscher Reihenfolge eingegeben, werden': PRINT 
"sie vom Programm vertauscht." 

PRINT "X-Min, Y-Min sollten immer kleiner oder": 
PRINT "gleich ® ,„ X-Max , Y-Max immer größer": PRINT 
"oder gleich ® gewählt werden (sonst": PRINT "können 
keine Achsen gezeichnet werden)" 

PRINT "Das Programm setzt daher falsch gesetzte": 
PRINT "Werte auf @ !" 


PRINT "Sollten Sie nicht ganz mit dem Darstel-": 
PRINT "lungsmaßstab einverstanden sein, können": 
PRINT "Sie das Verhältnis von negativem zu po-": 
PRINT "sitivem Achsenabschnitt verändern oder": 
PRINT "die Achsen strecken oder stauchen." 


GET A$: HOME : PRINT "Bitte Grenzen eingeben !" 
VTAB 7: PRINT : INPUT "X-MIN ,„ X-MAX : ";XL,XH 
VTAB 18: INPUT "Y-MIN , Y-MAX : ";YL,YH 
IF XL XH THEN X = XL:XL = XH:XH = X 
IF YL YH THEN X = YL:YL = YH:YH = X 
IF YL > ® THEN YL = ® 
IF YH < ® THEN YH = 
IF XL ® THEN XL d 
IF XH ® THEN XH = ® 
IF YL = YH AND XL = XH THEN PRINT CHR$ (7); 
"Eingabefehler ! Bitte wiederholen !": GOTO 315® 
IF YL = YH THEN GOSUB 357® 
IF XL = XH THEN GOSUB 355 
VTAB 13: PRINT "Die Darstellungsgrenzen wurden wie 
folgt festgelegt" 
PRINT : PRINT "Kleinstes X : ";XL;: CALL CL%: PRINT 
PRINT "Größtes X "sXH;: CALL CL%$: PRINT 
PRINT : PRINT "Kleinstes Y : ";YL;: CALL CL%: PRINT 
PRINT "Größtes Y ":YH:: CALL CLE: PRINT 
PRINT : VTAB 22: PRINT "Ist das richtig ? ";: CALL 
CLZ 
GOSUB 47@0: IF A$ = "J" THEN PRINT : GOTO 359® 
I = 1I:X8 = 1:Yß = I:X1 = I:Yl = IM = I:W = I:BK= 
I:BY = I: REM Clear Hilfsvariablen 
PRINT "Schwere Fehler ? ";: GOSUB 4709: IF A$ = "J" 
THEN PRINT : VTAB 1: PRINT "Dann bitte wiederholen 
I": GOTO 3159 
HOME : PRINT "Kleine Änderungen :" 
PRINT : PRINT " x-Achse strecken ? ";: GOSUB 479®: 
IF A$ = '"J" THEN INPUT "Verhältnis ";X@,X1 
PRINT : VTAB 5: PRINT " y-Achse strecken ? ";: GOSUB 
4700: IF A$ = "J" THEN INPUT "Verhältnis ";Y@,Yl 
PRINT : VTAB 8: PRINT "Nun bitte das Verhältnis + / 
— Achse!'": PRINT : PRINT " Für x-Achse ? ";: GOSUB 
4700: IF A$ = "J" THEN INPUT " + „ — ";MX,BX 
PRINT : VTAB 12: PRINT " Für y-Achse ? ";: GOSUB 
4700: IF A$ = "J" THEN INPUT " + / — ";MY,BY 
IF (X8 = ® AND X1 < > B) OR (X1 = B AND Xd < > B) OR 
(Yd = ® AND Yl < > B) OR (Yl = BÖ AND Y® < > ®) THEN 
PRINT : PRINT "Nie mit ® strecken oder stauchen !": 
GOTO 3369 
VTAB 20: PRINT "Alles 0.k.? ";: GOSUB 4780: IF A$ = 
"N" THEN PRINT : VTAB 2: PRINT "Bitte wiederholen 
I";: CALL CL%Z: GOTO 3368 
IF Xß < > ® AND X1 < > ® THEN XL XL / XÖ * X1:XH 
* Xl 
> ® AND Yl < > ® THEN YL YL / Y® * Y1:YH 
* Yl 
> ® OR BX < > ® THEN Xß = XH — XL:X1 = MX + 
MX / X1 * X0:XL = - BX / X1l = X0 
>® OR BY<> GB THEN YO = YH - YL:Yl MY + 
: MY / Yl * YO:YL = - BY / Yl « YO 
HOME : GOTO 326% 


REM Umrechnung Bildschirm 

MX = 279 / (XH - XL):BX = - MX * XL 

MY = - 191 / (YH - YL):BY = - MY « YH 

DEF FN XS(X) = INT (MX * X + BX + .5): DEF FN YS(X) 
= INT (MY » X + BY + 55) 

RETURN 

REM x-Achse an y-Achse anpassen 

FA = 279 / 191:XL = FA * (YL - YH) / 2:XH = FA « (YH 
- YL) / 2: RETURN 

REM y-Achse an x-Achse anpassen 

FA = 279 / 191:YL = (XL - XH) / (2 = FA):YH = (XH - 
XL) / (2 * FA): RETURN 

REM für Skalierung 

X0 = INT ( FN LG(X)): IF X® < FN LG(X) THEN X® = X® 
+1 

ST=Xß® - 1:X08 = EXP ( LOG (10) = XB):ST = EXP ( LOG 
(18) * ST) 

RETURN 

REM Parameter ? 

HOME : PRINT "Wurden Parameter verwendet ? ";: GOSUB 
4700: IF A$ = "N" THEN P$ = "9": RETURN 

PRINT : PRINT "Bitte die betreffende Taste für die 
ge-'"': PRINT "wünschte Kombination von Parametern": 
PRINT "betätigen !" 

VTAB 7: HTAB 19: PRINT "1 — nur R" 

VTAB 9: HTAB 19: PRINT "2 - nur S" 

VTAB 11: HTAB 19: PRINT "3 - nur T" 

VTAB 13: HTAB 19: PRINT "4 - R und S" 





21 


22 


3769 
3779 
3780 
3790 
3800 


3810 
3820 


3839 
3840 
3859 
3889 
3899 
390 
3919 
3929 
3939 
3949 


3950 
3969 
3979 


3980 
3999 


4009 
4019 
4029 
4030 
4940 
4059 
4069 
4070 
4080 


4999 
4190 
4119 
4129 
4139 
4149 


4159 
4169 
4179 
4189 
4199 
4200 


4210 
4220 
4240 
4259 
4269 
4270 
4280 
4299 
4309 
4319 
4329 
4330 
4349 
4399 
4409 
4410 
4420 
443% 
4440 
4450 
4469 
4470 
4480 
4490 
4509 
4599 
4600 


4619 


4629 


4639 


VTAB 15: HTAB 1: PRINT "5 R und T" 

VTAB 17: HTAB 19: PRINT "6 S und T" 

VTAB 19: HTAB 19: PRINT "7 R,S und T" 

VTAB 22: HTAB 19: PRINT "® -— keine Parameter" 
GET P$: IF ( VAL (P$) = ® AND P$ < > "Q") OR VAL 
(P$) > 7 THEN 380® 

HOME : IF VAL (P$) < 3 OR VAL (P$) = 4 THEN 3849 
PRINT "Es wurde der Parameter T verwendet. '": PRINT 
"Soll T mit einer festen Schrittweite": PRINT 
"durchlaufen werden ?"; 

GOSUB 4709: IF A$ = "J" THEN P$ = P$ + "K" 
RETURN 


REM Eingabe Parameter 

REM Eingabe von T 

IF RIGHT$ (P$,1) = "K" THEN 3979 

PRINT : VTAB 4: INPUT "Bitte T eingeben : 
VTAB 4: PRINT SPC( 14);"T = ";T: CALL CL% 
PRINT : PRINT TAB( 29) ;"Richtig ?"; 

GOSUB 4709: IF A$ = "N" THEN 


RETURN 

REM T in Schleife 

PRINT : VTAB 2: INPUT "Bitte Startwert und Endwert 
von T eingeben : ";T@,Tl 

VTAB 5: INPUT "Nun die Schrittweite :";TS 

IF TS = ® THEN VTAB 7: PRINT CHR$ (7);"Nie 
Schrittweite ® !'": GOTO 3989 

IF TS < ® THEN 403@ 

IF TI < T® THEN T = Tl:Tl = T9:TO 

GOTO 4949 

IF TÖ < T1 THEN T = T®:T9 = T1:Tl 

L1 = 1:L2 = 7: GOSUB 4759: VTAB 2 

PRINT "T läuft von : ";T® 

PRINT " Die : %: 53 

PRINT " mit Schrittweite : ";TS 

PRINT : PRINT TAB( 1®);"Ist das richtig ? ";: GOSUB 
4700: IF A$ = "N" THEN L1 = 2:L2 = 6: GOSUB 475ß: 
GOTO 3979 

RETURN 


REM Eingabe von S 

PRINT : VTAB 9: INPUT "Bitte S eingeben : ";S 

VTAB 9: PRINT SPC( 15);"S = ";S: CALL CL% 

VTAB 11: PRINT TAB( 29);"Richtig ?";: GOSUB 4799: IF 
A$ = "N" THEN 4129 

RETURN | 


REM Eingabe von R 

PRINT : VTAB 15: INPUT "Bitte R eingeben : ";R 

VTAB 15: PRINT SPC( 15);"R = ";R: CALL CL% 

VTAB 17: PRINT TAB( 2);"Richtig ?";: GOSUB 4799: IF 
A$ = "N" THEN 4189 

RETURN 


REM für Parametertabelle 
N$ = "nicht verwendet" 
ON VAL (P$) GOTO 4289,4299,4309,4319,4329,4339, 4349 
= N$:T$ = N$:R$ = N$: RETURN 
R$ = STR$ (R):S$ = N$:T$ = N$: RETURN 
S$ = STR$ (S):R$ = N$:T$ = N$: RETURN 
= STR$ (T):R$ = N$:S$ = N$: RETURN 
R$ = STR$ (R):S$ = STR$ (S):T$ = N$: RETURN 
R$ = STR$ (R):T$ = STR$ (T):S$ = N$: RETURN 
S$ = STR$ (S):T$ = STR$ (T):R$ = N$: RETURN 
R$ = STR$ (R):S$ = STR$ (S):T$ = STR$ (T): RETURN 
REM alle Parameter eingeben 
IF P$ = "0" THEN 443® 
HOME : PRINT TAB( 1®);"Parametereingabe"" 
ON VAL (P$) GOSUB 4449,4459,4469 , 4479, 4489 , 4490 , 4509 
HOME : RETURN 
GOSUB 4189: RETURN 
GOSUB 4129: RETURN 
GOSUB 3999: RETURN 
GOSUB 4129: GOSUB 4189: RETURN 
GOSUB 3999: GOSUB 4189: RETURN 
GOSUB 3909: GOSUB 4129: RETURN 
GOSUB 3999: GOSUB 4129: GOSUB 4189: RETURN 
REM Kurzzusammenfassung 
HOME : PRINT "Die Funktion lautet :": PRINT : PRINT 
F$ 
VTAB 13: PRINT "Darstellungsgrenzen :": PRINT TAB( 
18);"Kleinstes X : ";XL: PRINT TAB( 1®);"Größtes X 
: WEM 
PRINT TAB( 1®);"Kleinstes Y : ";YL: PRINT TAB( 
1d);"Größtes Y m 
VTAB 19: PRINT "Parameter :': GOSUB 4259 


PRINT TAB( 19);"R “RS: PRINT TAB| 19)5"7 = "78: 
PRINT TAB( 19);"S = ";S$ 

PRINT "Ordinate X = ";X 

RETURN 


REM Teste ob ja oder nein 
GET A$: IF A$ < > "J" AND A$ < > "N" THEN 4709 
RETURN 


REM lösche zwischen L1l und L2 Bildschirm 
FOR L = L1 TO L2: VTAB L: POKE CH%,®: CALL CL%: NEXT 
: RETURN 


REM Grafik/Text umschalten 

POKE - 16368,®: REM Keyboardstrobe löschen 

IF PEEK (253) = 1 THEN POKE - 16393,®: POKE 253,2: 
RETURN : REM Textseite 

POKE - 16304,®: POKE - 16297,®: POKE 253,1: RETURN : 
REM Grafikseite 


REM Zeichne Achsen 

REM und skaliere 

HPLOT FN XS(®),® TO FN XS(®),191: HPLOT ®, FN YS(9) 
TO 279, FN YS(8): ROT= ®:K = ß: IF YL = ® THEN 
K=-2 

IF YH=®THENK=2 

X = XH: IF ABS (XL) > XH THEN X = ABS (XL) 

GOSUB 360®: FOR X = - Xß TO X® STEP ST 

IF X > XL AND X < XH THEN DRAW 1 AT FN XS(X), FN 
YS(ß) + K 

NEXT :K = B: IF XL= ® THENK=2 

IFXH=® THENK=-2 

X = YH: IF ABS (YL) > X THEN X = ABS (YL): GOSUB 
3609 

GOSUB 3600: ROT= 16: FOR X = - Xß TO Xß STEP ST 

IF X > YL AND X < YH THEN DRAW 1 AT FN XS(ß) + K, FN 
YSs(x) 

NEXT : RETURN 


REM Ausdruck 

PRINT : PRINT D$;"PR#1": PRINT HT$;DP$: PRINT 

E$; "M";E$; "1"; CHR$ (6); 

REM EPSON FX-89 Steuercodes 

PRINT E$;"Q"; CHR$ (98);E$;"A"; CHR$ (15); TAB( 

43) ;E$;"-1";" PLOT.2.9 ";E$;"-P9" 

PRINT E$;"N"; CHR$ (6); CHR$ (13); CHR$ (19); CHR$ 
(18);"Die Funktion lautet :" 

REM rechter, linker Rand, Schönschrift, 

Formularlänge 

PRINT " F(X) = "; MID$ (F$,3): PRINT 

PRINT E$;'"D"; CHR$ (8); CHR$ (24); CHR$ (49); CHR$ 
(56); CHR$ (72); CHR$ (P®) 

PRINT CHR$ (19); CHR$ (13) ;"Darstellungsgrenzen : 
";HT$;"x läuft von :";HT$;XL;HT$;"bis : ";XH 

PRINT HT$;HT$;"y läuft von :";HT$;YL;HT$;"bis : ";YH 

PRINT CHR$ (13) ;"Parameterliste:";: IF R$ = N$ AND 

T$ = N$ AND S$ = N$ THEN PRINT " Es wurden keine 

Scharparameter verwendet !": PRINT : GOTO 5279 

PRINT " Folgende Parameter wurden mit den auf-": 

PRINT "geführten Werten durchlaufen."; CHR$ (19) 
IF R$ = N$ THEN 5239 

PRINT R :"::K = ß: GOSUB 5319: PRINT 

IF S$ N$ THEN 5259 

PRINT S :"::K = 1: GOSUB 531®: PRINT 

IF T$ = N$ THEN 5279 

PRINT T :'"::K = 2: GOSUB 5318: PRINT 

PRINT CHR$ (13); CHR$ (19);"Die Grafik :": PRINT 
PRINT DP$;'"G": PRINT CHR$ (19); CHR$ (19); TAB( 
82); "HME"; CHR$ (13); CHR$ (12): PRINT D$;"PR# @": 
RETURN 

REM 

REM Parametertabelle 

FOR J = 1 TO I: PRINT HT$;P(K,J);: IF J / 5 = INT (J 
/ 5) THEN PRINT 

NEXT J: PRINT : RETURN 

REM 

REM Rufe Maschinenprogramm für Funktionseingabe auf 
CALL ASZ: GOSUB 1@19:F$ = "Y= " 

FOR I = APZ TO APZ + PEEK (206):F$ = F$ + CHR$ 
(PEEK (I)): NEXT I: REM Hole Funktion aus 
Eingabepuffer 

I = ß: RETURN 

REM Ende Eingabe 

REM 

REM Fehlerbehandlung 

LN = PEEK (218) + 256 * PEEK (219):ER = PEEK (222) 
CALL 348® 
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WS 2000 
WORLD STANDARD 
MODEM 


552@ IF ER = 255 THEN TEXT : HOME : GOTO 18@@: REM 
Hauptmenü 2 

55390 IF ER = 254 THEN PRINT "?REENTER": RESUME : REM 
Anwenderfehler bei INPUT 

5540 IF ER = 133 OR ER = 69 OR ER = 53 THEN XA = ST + 
X:X0 = B: GOTO 1659 

5545 REM Illegal Quantity, Overflow, Division by Zero 

5550 TEXT : VTAB 28: PRINT CHR$ (13); CHR$ (7);" Fehler 
Code # ";ER;" in Zeile ";LN: END 

5569 : 

5580 REM Pointer in ($67) falsch gesetzt, Programm liegt 
in Grafikseite 

5590 REM EXEC-File korrigiert das, lädt und startet das 
Programm von neuem 

56ß0® HOME : VTAB 19: HTAB 5: PRINT "Programm PLOT.2.® 
wird geladen": PRINT : HTAB 14: PRINT "Bitte warten" 

561® PRINT CHR$ (4) ;"EXEC PLOT. PROTECTOR'" 


POWER & an 
& VIEWTEXT 
Tx Data 

Rx DATA & "> 300/300 


CARRIER 


% 


ON LINE 


"LOCAL TEST 


MR ACLE Modem WS 2000 





PLOT. PROTECTOR 


a, Die neue Version dieses weltweit 
.._ benutzten professionellen Modems 
LOAD PLOT.2.0 - immer noch zum un- ; 
OA. Sas14 schlagbaren Preis von DM 7/98, —! 
RUN 
x Datenaustausch und Kommunkation mit praktisch 
PLOT.B jedem Computer weltweit möglich 
nz % Zugriff zu Datenbanken, Mailboxen, Btx, Btx rück- 
* PLOT 2. * wärts USW. 
Hi a . x Telex für alle durch einen neuen Dienst — mit Ihrem 
a Computer und dem WS 2000 (fragen Sie uns) 
ORG $DpR %* Alle gängigen Baudraten (75, 300/300, 600, 1200, 
Si u 1200/75, 75/1200) und international üblichen Über- 
PNTH EQU $51 tragung-Standards (CCITT, BELL) — umschaltbar 
-_ s per Hand oder per Computer (IC-Satz SK1 hierfür 
ea DM 96,90; Anschlußkabel UPL DM 48,-) 
LCHARH EQU > ” Automatisches Wählen mit Zusatzplatine AD2 
INPNTL EQU 7F 
oe (DM 199,50) und Kabel UPL 
PRGANFL EQU $67 x Automatisches Annehmen von Anrufen mit Zusatz- 
PRGANFH EQU $68 platine AA2 (DM 199,50) 
LPNT EQU $D6 a . 
YSAV EQU $D7 x Einfacher Anschluß (parallel zur Telefonleitung); 
nr nn. eingebautes Netzteil; deutsche Anleitung; 1 Jahr 
INPUT EQU $D52E Garantie j 
PCODE EQU $D56C x Viele Interfaces lieferbar; z. B. 
IOSAVE EQU $FFAA CBM | für C64/VIC20 einschl. Listing DM 136,80 
u AC Kommunikations-Karte für APPLE DM 330,60 
* on (auf ROM) DM 256,50 
a » Anschlußkabel zwischen Computer und Modem 
. (1989) (bitte benötigten Steckertyp angeben) DM 57,- 
A ee % Liefermöglichkeit: sofort ab Lager Hamburg 
* kommentiert und * x Alle Preise einschließlich MwSt. zuzüglich Ver- 
nn packung, Porto und Nachnahme (Bei Vorauszah- 
ee lung durch V-Scheck/Überweisung Porto und Ver- 
ak packung frei) 
. en retten und Pointer Claus F. Erbrecht 
LOS IOSAVE 
LCHARL Computer Related Products 
.. Lappenbergsallee 37 - 2000 Hamburg 20 
INPNTH Telefon 040/850 52 55 | 
"Y" als "Prompt-Charaoter" an Bankverbindung: Bank für Gemeinwirtschaft 
a BLZ 200 101 11, Konto-Nr. 1241 223 700 
JSR INTXT 
LDX +$BD 
we H BADASRSE Achtung: Nur für hausinterne Telefon-Anlagen und 
aan a ee nicht amtsberechtigte Nebenstellen - in der BRD ist der 
JSR PCODE Anschluß an das öffentliche Telefonnetz nicht gestattet! 


LDX INPNTL 
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LDY INPNTH 
STX LCHARL 
STY LCHARH 
suche Startadresse des 
Applesoftprogramns. 
20 Bytes später steht 
das "=" in Zeile 2 
LDA PRGANFH 
STA PNTH 
CLC 
LDA PRGANFL 
ADC #$15 
STA PNTL 
BCC LASSEN 
INC PNTH 
* Zeile 2 wird mit 228 
* Doppelpunkten aufgefüllt 
LASSEN LDY +#$E3 
LDA #$3A 
SCHLEIFE STA (PNTL),Y 
DEY 
BNE SCHLEIFE 
* Nun wird der Inhalt des 
* Eingabepuffers hinter das 
* "=" in Zeile 2 geschrieben 
TRANSF LDA INBUF-3,Y 
STA (PNTL),Y 
INY 
TAX setzt die Prozessorflags. 
Abbruch bei Zeilenende 
TAX 
$00 durch ":" ersetzen 
BNE TRANSF 
LDA #$3A 
DEY 
STA (PNTL),Y 
In einen Puffer ab $ßCß® wird 
ein String geschrieben, der 
die Funktionsvorschrift enthält. 


STRING LDA #$FF 
LDX #$0C 
STA STRPNTL 
STX STRPNTH 
STY LPNT 
LDY #$99 
* Hole Zeichen/Token aus der 
* Programmzeile 
NEXT LDA (PNTL),Y 
SEC 
* Ist es ein Token ? 
CMP #$8® 
* wenn ja, suche zugehörige 
* Zeichenkette in Tabelle 
BCS TOKEN 
* nein, schreibe Zeichen in Puffer 
INC STRPNTL 
LDX #$09 
STA (STRPNTL,X) 
INY 
CPY LPNT 
BNE NEXT 
JSR IOREST 
RTS 
* Alle Register werden gebraucht 
TOKEN STY YSAV 
LDY #$13 
NXTT DEY 
BMI ERR 
* Vergleich mit Token-Tabelle 
CMP TBL2,Y 
BNE NXTT 
* Pointer auf Beginn des Strings 
* aus Tabelle entnehmen 
LDX TBL3,Y 
LDY +#$9 
LDA TBL1,X 
NXTCHAR INC STRPNTL 
STA (STRPNTL),Y 
INX 
LDA TBL1,X 
* Wenn jetzt ein Space im Accu 
* steht, ist der String komplett 
CMP #$2® 
BNE NXTCHAR 
LDY YSAV 
CLV 
BVC ENDE? 








ÖDAD: 
ÖDBP: 
ÖDB2: 
ÖDBA: 
ÖDBE: 
ODB8: 
ÖDBA: 
ÖDBD: 
ÖDBE: 
dDC1: 
BDC2: 
BDC5: 
dDCE: 
BDC9: 
BDCA: 
ÖDCD: 
ÖDCE: 
ÖDD!: 
BDD2: 
BDD5: 
ÖDD6: 
ODD9: 
ÖDDA: 
ÖDDD: 
ÖDDE: 
DEI: 
ÖDE2: 
ÖDE5: 
ÖDEG: 
ÖDE9: 


ÖDEB: 
ÖDEE: 
ÖDEF: 
ÖDF2: 
ÖDF3: 
ÖDF6: 
ÖDFT7: 
ÖDFA: 
ÖDFB: 


ÖDFD: 
DEP: 
DEB2: 
DEBS: 
DEPT: 
DEBA: 
DEPB: 
DEE: 


271 Bytes 


Es trat ein Token 





auf, das nicht 


in der Token-Tabelle berück- 
sichtigt ist. Wird darauf Wert 
gelegt, sollte man es hinzu- 


fügen. 


RR INC STRPNTL 


LDX #$9 
LDA +#$3F 


STA (STRPNTL,X) 


CLV 
BVC ENDE? 


* APPLESOFT ONERR SUBROUTINE 
* Aus Applesoft Programming 


* Reference Manual, 
PLA 
TAY 
PLA 
LDX 
TXS 
PHA 
TYA 
PHA 
RTS 
* Ab hier Tabellen 


Ss.82 


* Ein Shape zur Skalierung 


* sechs Vektoren 


SHTABLE HEX #1900499 


HEX 92929404040499 


* 2 nach unten ohne Plot 
x A nach oben mit Plot 


* Reservierte Wörter 


TBL1 ASC ' FN' 
ASC ' +! 
ASC ' -! 
ASC ' x' 


ASC 7" 
ASC ' 

ASC SGN' 
ASC INT' 
ASC ABS' 
ASC USR' 
ASC SOR' 
ASC RND' 
ASC LOG' 
ASC EXP' 
ASC cosS' 
ASC SIN' 
ASC TAN' 
ASC ATN 


* Token-Tabelle 


TBL2 HEX C2C8C9ICA 


HEX CBCCD2D3 


HEX DA4D5SDADB 


HEX DCDDDEDF 


HEX EPELl 


* Pointer zum Startpunkt in der 
* Schlüsselworttabelle 
TBL3 HEX 9003050799 


HEX P®B@®D111519 


HEX 1D212529 


HEX 2D313539 
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CONVERT560 


von Marc van Woerkom 





Konvertierungsroutine für 
Double-Hires-Drucker-Dump 


Die neuen Computer der Apple-Il-Familie, 
d.h. der Apple IIc und der Apple Ile mit 
erweiterter 80-Zeichenkarte (= 64K-Kar- 
te), bieten die Möglichkeit, Graphiken mit 
einer Auflösung von 560 x 192 Punkten zu 
erzeugen (= sog. Double-Hires-Graphik.) 
Im Peeker 2/84 wurde schon über die 
Organisation der Double-Hires-Graphik 
berichtet. Apple hat aber leider diese neu- 
en Graphikfähigkeiten weder im Ap- 
plesoft-Interpreter noch in der Treibersoft- 
ware der erweiterten 80-Zeichenkarte im- 
plementiert, so daß Double-Hires-Graphik 
nur mit externer Software möglich ist. Der- 
artige Software ist inzwischen schon vor- 
handen (s. Peeker 3/85: Test der Graphik- 
pakete „Doublestuff“ und „Superplot“). 


Double-Hires-Graphik ist sehr praktisch 
zum Plotten von mathematischen Funktio- 
nen, wie Bild 1 und Bild 2 eindrucksvoll 
zeigen, doch bieten die bisherigen Soft- 
warepakete keine Möglichkeit des Aus- 
drucks dieser Double-Hires-Graphik, was 
natürlich sehr unbefriedigend ist, da man 


e> BB Du N 


| Narce: var Woerkom 


Bild 1: Normales DHGR-Bild 
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seine Ergebnisse ja gerne auch schwarz 
auf weiß zu Demonstrationszwecken usw. 
haben möchte. Dadurch sah ich mich ver- 
anlaßt, hier Abhilfe zu schaffen, und zwar 
mit möglichst geringem Aufwand. 


Die einfachste Implementierung dürfte in 
der Ausnutzung der bereits existierenden 
Programme zum Ausdruck normaler hoch- 
auflösender Graphik in Verbindung mit der 
hier veröffentlichten Utility CONVERT560 
bestehen. Die Begründung dafür ist, daß 
quasi jeder graphikfähige Drucker anders 
angesteuert werden muß! 

Da der Aufwand zur Erstellung von neuer 
„Graphik-Dump-Software“ zu jedem 
Drucker-Modell enorm wäre, kann man die 
alte, bereits vorhandene Software zusam- 
men mit CONVERT560 benutzen, das den 
Vorteil bietet, mit jedem Drucker zu arbei- 
ten. Voraussetzung ist allerdings, daß die 
vorhandene Dump-Software in der Lage 
ist, zwei Hires-Bilder nebeneinander aus- 
zudrucken (2 Hires-Dumps = 1 Double- 
Hires-Dump). 





Arsssnensnnnochsensnensssnnnnslsnnnnnnsssnsnnflnsnanonusnssnnnnnnssnnsnsnnnunnnnts shonnehsnnsnnnnnelÜlannnannneMMltnsnnnunnsnstnnnnnnnnnenne 


Wie CONVERT560 funktioniert 


CONVERTS560 zerlegt einfach ein Double- 
Hires-Bild mit einer Auflösung von 560 x 
192 Punkten in zwei „normale“ Bilder zu 
je 280 x 192 Punkten. Diese werden dann 
wie gewohnt ausgedruckt. (Nicht jedes In- 
terface-Programm ist jedoch dazu in der 
Lage. Beispielsweise kann die zum Image- 
writer mitgelieferte Toolkit-Diskette nicht 
zwei Bilder nebeneinander ausdrucken. 
Anm. d. Red.) Vor dem Aufruf von CON- 
VERT560 befindet sich das Double-Hires- 
Bild in den zwei Speicherbereichen 
$2000-$3FFF (a) von den „unteren“ 64K 
und (b) von den „oberen“ 64K. Nach dem 
Aufruf von CONVERT560 liegt das Dou- 
ble-Hires-Bild (a) in dem „unteren“ Be- 
reich $2000-$3FFF (linke Bildhälfte) und 
(b) in dem „unteren“ Bereich 
$4000-$5FFF (rechte Bildhälfte). 


Um sicherzugehen, daß CONVERT560 mit 
jeder Art von Graphik-Dump-Software zu- 
sammenarbeitet, wurden folgende Ge- 
sichtspunkte bei der Erstellung von CON- 
VERTS560 beachtet: 


a CONVERT560 sollte relokativ*, sprich 
überall im Speicher lauffähig sein, um an 
die vorhandene Graphik-Dump-Software 
angehängt werden zu können. 

b Es sollte möglichst wenig Speicherplatz 
belegen, zum einen wegen (a) und zum 
anderen, um es eventuell in einem 
EPROM unterbringen zu können. 

c Die Bereiche zur Abspeicherung der 
durch CONVERT560 erhaltenen Bildhälf- 
ten sollten frei wählbar sein, denn diese 


“ Die Register-Save-Routine ist nicht relokativ (Anm. 
d. Red.) 
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werden im Normalfall im HGR1- und 
HGR2-Bereich abgelegt, wodurch das 
Double-Hires-Bild zerstört wird, da es 
auch den HGRI1-Bereich belegt. Dies ist 
vielleicht nicht immer erwünscht. 


Diese drei Gesichtspunkte wurden wie 
folgt realisiert: 


® Sollte bei Ihnen die Startadresse $0300 
nicht nicht möglich sein, so ändern Sie 
bitte die „ORG“-Anweisung im Source- 
Listing. 

@ CONVERT560 belegt weniger als eine 
Seite im Speicher, genau $00A6 (dezimal 
166) Bytes. Um dies zu erreichen, wurden 
folgende Maßnahmen durchgeführt: 

Der von CONVERT560 zusätzlich benötig- 
te, 80 Bytes lange Zwischenspeicher wur- 


CONVERT560.DEMO 


100 REM CONVERT569 .DEMO 

11® REM für Epson FX-89/8132W 

128 REM Das DHGR-Bild ist 

130 REM bereits geladen. 

14® TEXT : HOME : NORMAL 

150 D$ = CHR$ (4): PRINT : 
PRINT D$;"BLOAD CONVERT56®" 

16® PRINT : CALL 768: REM Konvertieren 

1708 I$ = CHR$ (9): PRINT : 
PRINT CHR$ (4) ;"PR#1'" 

180 PRINT : PRINT I$;"GBD" 

198 PRINT : PRINT D$;"PR#ß" 

200 PRINT: END 


a 2 AA N SE Fi; 
fi + 5 a Re N DEN Te x 
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2 uf! £ 
Be Pi P G Fä h / 4 
URN, 
A 
cc) 1984 by? NN — 
Marc van linerkom u 





Bild 2: Gestauchtes DHGR-Bild 
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de in das Ende des Tastaturspeichers 
($0280- $02FF) gelegt. 

CONVERT560 muß die Anfangsadressen 
der 192 Graphik-Zeilen berechnen kön- 
nen. Aus Platzgründen wurde jedoch kei- 
ne schnelle „Lookup-Table“ verwendet, 
sondern die 10mal kürzere und damit 
langsamere, modifizierte Version von 
HPOSN ($F411). 

@ Wünschen Sie andere Speicherberei- 
che für die entstandene linke und rechte 
Bildhälfte, so ändern sie im Source-Listing 
die Definitionen der Label „LeftPic“ und 
„RightPic“. 


Die Funktionsweise von CONVERT560 ist 
relativ einfach: Es wird jede der 192 Zeilen 
der Double-Hires-Graphik einzeln erst in 
den Zwischenspeicher geladen, dort rich- 


CONVERT560 


tig umgestellt und dann in die angegebe- 
nen Speicherbereiche geschoben. 


Neben dem Source-Listing von CON- 
VERT5860 ist noch ein kurzes Beispiel-Pro- 
gramm CONVERT560.DEMO abgedruckt, 
das den Gebrauch von CONVERT560 ver- 
deutlichen soll. Mit ihm wurden auch die 
Bilder 1 und 2 gedruckt, wobei ein Epson 
FX-80 mit Epson Interface 8132W zur Ver- 
fügung stand. Dieses Interface hat den 
Vorteil, daß die HGR1- und HGR2-Seiten 
direkt nebeneinander ausgedruckt werden 
können. 

Dabei ist das Gesamtbild so komprimiert, 
daß es genauso groß wie ein normales 
Bild ist, so daß die Proportionen mit denen 
der 80-Zeichenkarte übereinstimmen. 

“ 


BSAVE CONVERT56®, A768, L166 
Mit BLOAD CONVERT56® laden 
Mit CALL 768 aufrufen 


oo oıo ou Dr 


CONVERT56® 


Eine Double-Hires-Utility 
von Marc van Woerkom 1985 


Kurzbeschreibung: 


Pr Hr 
m a 


CONVERT56® bietet eine 
einfache Möglichkeit, 
Double-Hires-Bilder aus- 
zudrucken, denn es 
wandelt ein DHGR-Bild so 
um, daß danach die linke 
Hälfte im HGRl-Bereich 
und die rechte Hälfte im 


PFPrbrereHreH 
JO PAUOD 


HGR2-Bereich abgelegt 
ist. Diese gewöhnlichen 
Hires-Bilder können dann 


problemlos mit den schon 
existierenden, normalen 
Graphik-Treibern ausge- 
druckt werden. 


Mit CALL 768 aufrufen. 


KERKKKERKKKFK KHK TFT I TFT I TFT IF FI IF I I I I I I a a 


* Softswitches 


$c954 
$c955 
$c957 
$CQdD 
$codc 
$CO1F 
$copl 
$co99 
$c918 


PAGEl EQU 
PAGE2 EQU 
HIRES EQU 
SET8PCOL EQU 
CLR8®COL EQU 
CHK8®ßCOL EQU 
SETSPSTO EQU 
CLR8EPSTO EQU 
CHK8PSTO EQU 


* Zeropage-Adressen 


Fortsetzung Seite 30 
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Lohnsteuerjahresaus- 
gleich? - Einkommen- 
steuererklärung? 

Mein C-64 hilft mir dabei! 


von Ilona Kwiatkowski, Peter Vogt 


1985, 188 S., kart., DM 38,— 
ISBN 3-7785-1084-3 
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üthig-FACHBUCH-TIP 


I. Kwiatkowski - P. Vogt 


Lohnsteuerjahresausgleich? 
Einkommensteuererklärung? 


Mein C-6% 
hilft mir dabei ! 





Das vorliegende Buch zeigt dem Leser, 
wie er seinen Hobbycomputer beim Er- 
stellen des Lohnsteuerjahresausgleichs 
einsetzen kann. Die Autoren sind dabei 
von einer „Durchschnittsfamilie“ aus- 
gegangen, damit die Belange jedes 
Lohnempfängers gebührend berück- 
sichtigt werden. Das Buch enthält das 
komplette Listing des Programms, das 
auf jedem gängigen Hobbycomputer 
ausgeführt werden kann. Es ist sowohl 
für den EDV-Hobbyisten als auch für 
den Leser geschrieben, der sich mit der 
EDV zwar nur am Rande beschäftigt, 




















aber seinen Heimcomputer zur Durch- 
führung seines Lohnsteuerjahresaus- 
gleichs einsetzen möchte. 

Das Buch enthält neben grundsätzli- 
chen Bemerkungen zum Lohnsteuer- 
jahresausgleich eine Beschreibung des 
Programms und für denjenigen, der nur 
das Programm benutzen möchte, zu- 
sätzlich eine ausführliche Bedienungs- 
anleitung. Es werden Hinweise gege- 
ben, wie das Programm nach individu- 
ellen Bedürfnissen abgeändert oder er- 
weitert werden kann. 
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YLine EQU 
Hgrl EQU 
LPic EQU 
RPic EQU 


$F9 
$FA 
$FC 
$FE 


* Programm-Adressen 


HGR1 EQU 
Buffer EQU 
LeftPic EQU 
RightPic EQU 


ORG 


KR HI3NK % 


Convert STA 
STX 
STY 
LDA 
STA 
LDA 
STA 
STA 
STA 
STA 

* 


$299P 
$309-89 
$2099 
$4099 


$309 


Retten der Prozessorregister. 


Ferner wird der Zustand 

der Softswitches 89STO 

und 8ßCOL gerettet; 

dann werden diese zwei und 
HIRES aktiviert, um den 
Zugriff auf den HGRl-Bereich 
des 64K-Zusatzspeichers 
(AUX) zu ermöglichen. 


Regs 
Regs+tl 
Regs+2 
CHK8®STO 
Status 
CHK8PßCOL 
Status+tl 
SET8®STO 
SET8SßCOL 
HIRES 


* Hauptschleife: 


* 


* Jede der 192 Zeilen wird 
* einzeln konvertiert und in 
* die Zielbereiche geschoben. 


* 
LDX 
Conv2 STX 
TXA 


Berechnung 


KR THII TFI HI «8% 


AND 
STA 
LSR 
LSR 
ORA 
STA 
TXA 
STA 
ASL 
ASL 
ASL 
ROL 
ASL 
ROL 
ASL 
ROR 
LDA 
AND 
* 
* Setzen der 


+9 
YLine 


der Startadresse 


der Zeile im Akkumulator und 
deren Speicherung im Pointer 
Hgrl/Hgrl+l. 


(Es handelt sich hierbei 

aus Platzgründen um eine 
modifizierte Version von 
HPOSN ($F4ll) und nicht um 
eine schnelle, aber sehr viel 
Speicherplatz verschlingende 
Lookup-Table!) 


+411090909 
Hgrl 


Hgrl 
Hgrl 


Hgrl+1l 


Hgrl+1 
Hgri+l 
Hgrl 
Hgrl+1l 
#$1F 


Pointer 


* Hgrl/Hgrl+l, LPic/LPictl 
* und RPic/RPictl. 


* 
TAY 
CLC 
ADC 


#>HGRl 


166 Bytes 


KK HKHH 


KEERKKKTKK KHK HUH 


“KA KKKHH 


STA Hgrl+l 

TYA 

ADC #>LeftPic 
STA LPictl 

TYA 

ADC #>RightPic 
STA RPic+l 

LDA Hgrl 

STA LPic 

STA RPic 


Laden der jetzigen Double- 
Hires-Zeile in den 8® Bytes 
fassenden Puffer, und zwar 
so, daß die ersten 4ß Bytes 
des Puffers die linke und 
die restlichen 49 Bytes die 
rechte Hälfte der Zeile 
enthalten. 


LDY #39 

LDX +79 

BIT PAGEL 
LDA (Hgrl),Y 
STA Buffer,X 
DEX 

BIT PAGE2 
LDA (Hgrl),Y 
STA Buffer,X 
DEX 

DEY 

BPL Conv3 


Softswitch PAGEl aktivieren, 
damit jetzt nur noch auf den 
Hauptspeicher zugegriffen 
werden kann. 


Verschieben des Puffer- 
inhalts in die jeweiligen 
Speicherbereiche für die 
linke und rechte Bildhälfte. 


STA PAGEL 


LDY #39 

LDA Buffer,Y 
STA (LPic),Y 
LDA Buffer+49,Y 
STA (RPic),Y 
DEY 

BPL Conv4 


Erniedrigung des Zeilen- 
pointers und Rücksprung, 
falls nicht alle Zeilen 

konvertiert sind. 


LDX YLine 
INX 

CPX #192 
BCC Conv2 


Wiederherstellen der Register- 
inhalte und 8®-Zeichen- 
Softswitches. 


Danach erfolgt der Rück- 
sprung zum aufrufenden 
Applesoft-Programn. 


LDA Status 
BMI Conv5 
STA CLR8®dSTO 


Conv5 LDA Statustl 


BMI Conv6 
STA CLR8ßCOL 
LDA Regs 

LDX Regstl 
LDY Regst2 
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Bei dem normalen 6502-Prozessor sind 
von 256 möglichen Codes nur 151 als 
Assembler-Befehle definiert. Die CPU in- 
terpretiert aber aus den restlichen Codes 
auch Befehle, die zwar zum Teil unsinnig 
sind, aber auch manche nützliche Opera- 
tionen enthalten. 

Mit dem vorhandenen Monitor-Disas- 
sembler kann man ein Programm mit sol- 
chen Befehlen nicht auslisten, da dann nur 
„2?7“ ausgedruckt wird. Ich habe nun ei- 
nen „Extended Disassembler“ (EDA) pro- 
grammiert, der die zusätzlichen Befehle 
richtig ausgibt. 

Nach dem Eintippen des Programms sollte 
es mit „BSAVE EDA, A$94C8, 1L$0138“ 
auf Diskette gespeichert werden. Durch 
„BRUN EDA initialisiert sich die Routine 
selbst und kann dann vom Monitor aus wie 
der „L“-Befehl aufgerufen werden, wobei 
das „L“ durch Ctrl-Y zu ersetzen ist. 

EDA ist keine gepatchte Language-Card- 
Version des alten Disassemblers, sondern 
wird in der Page 3 und direkt unter dem 
DOS-Puffer abgespeichert, so daß er ver- 
schwindend wenig vom freien Speicher- 
platz in Anspruch nimmt. 

Somit läuft EDA auch auf Apple-Il-Versio- 


Beispiel 1 
l * X = High-Byte der Anfangsadresse-l 
2 “A 
3 
Ad BB 4 LDY #9 
84 06 5 STY $6 
85 97 6 STA $7 
98 7 LP1 TYA 
91 96 8 LP2 STA ($6),Y 
c8 9 INY 
D® FB 19 BNE LP2 
8A 11 TXA 
c7 97 12 DEC/CMP $7 
90 F5 13 BCC LPI 
Beispiel 2 
Ri * Subtraktion (z.B. X- 7 ->X) 
2 * 4 Mikrosekunden 
3 
A9 FF 4 LDA #$FF 
CB 97 5 AXM #7 
6 
7 * Subtraktion mit "echten" Opcodes 
8 * 8 Mikrosekunden 
9 
8A 19 TXA 
38 ll SEC 
E9 07 12 SBC #7 
AA 13 TAX 


= High-Byte der Endadresse 03 


;C=® bei Überlauf 


nen mit nur 48K RAM oder unter ProDOS, 
das die Language-Card benutzt. 


Im folgenden sind zwei Anwendungsbei- 
spiele der zusätzlichen Op-Codes näher 
erläutert: 


DEC/CMP ad. 
INC/SBGC ad. 


Diese Befehle erniedrigen oder erhöhen 
den Inhalt einer Speicheradresse und ver- 
gleichen das Ergebnis mit dem Akkumu- 
lator. 

Solche Operationen sind oft für die Aus- 
führung von Schleifen nützlich, in denen 
z.B. ein Pointer von einer Anfangsadresse 
auf eine Endadresse heruntergezählt wird. 
Dies ist nun mit einem einzigen Befehl 
möglich. 

Beispiel 1 zeigt eine solche Schleife, die 
einen Speicherbereich löscht. 


AXM #Operand 

Dieser Befehl verknüpft Akkumulator und 
X-Register durch die AND-Funktion, zieht 
davon den Operanden ab und speichert 
das Ergebnis in das X-Register. Das Car- 
ry-Flag muß nicht gesetzt oder gelöscht 
werden. Wird der Akkumulator vorher mit 


$FF geladen, so schafft dieser Befehl die 
Möglichkeit, direkt im X-Register zu addie- 
ren oder zu subtrahieren. 

Beispiel 2 demonstriert diesen Befehl und 
den Zeitgewinn gegenüber der Benutzung 
der „echten“ Codes. 


Eine Auflistung aller 93 zusätzlichen 
Codes kann der Tabelle 1 entnommen 
werden”. 

Bei vielen Befehlen handelt es sich nur um 
eine Aneinanderreihung zweier normaler 
6502-Befehle, wobei die Mnemonics dann 
aus den zwei Befehlen und einem Schräg- 
strich bestehen. 

Wegen der fehlenden Festlegung habe ich 
für die restlichen Codes die Mnemonics 
frei definiert. Bei ihnen druckt EDA dann 
noch ein „S$“ davor, um sie von den ande- 
ren Befehlen abzusetzen. 

Alle übrigen nicht aufgelisteten Codes 
„hängen den Prozessor auf“ (z.B. $02). 
Man könnte sie höchstens als HALT-Be- 
fehle benutzen, bei denen der Prozessor 
dann wartet, bis ein Reset oder Interrupt 
erfolgt. 


* Eine analoge Matrixtabelle findet man in „incider“, 
4/85, S. 121 


Tabelle 1: Die „geheimen“ 6502-Opcodes 


Code: 


07 _H"_ 
ÖF 
13 
17 
1B 
IF -"— 


23 ROL/AND 


27 in 
2F 


LSR/EOR 


ROR/ADC 


STX/STA 


15 * Addition (z.B. X +13 ->X) in 


A9 FF 17 
CB F3 18 


LDA +#$FF 
AXM #-13 


32 


LDX/LDA 


;C=1l bei Überlauf _"_ 
19 + Im Zweierkomplemet ist -13 = $F3 





Mnemonic: 


ASL/ORA 


Adress.: Zeit: Funktion: 


(ind. ,X) 
zeropage 
absolute 
(ind.),Y 
z.page,X 
absol.,Y 
absol.,X 
(ind. ,X) 
zeropage 
absolute 
(inda.),Y 
z.page,X 
absol.,Y 
absol.,X 
(ind. ,X) 
zeropage 
absolute 
(ind.),Y 
z.page,X 
absol.,Y 
absol.,X 
(ind.,X) 
zeropage 
absolute 
(ind.),Y 
z.page,X 
absol.,Y 
absol.,X 
(ind.,X) 
zeropage 
absolute 
z.page,Y 
(ind.,X) 
zeropage 
immed. 

absolute 
(ind.),Y 


ASL Adr. & ORA Adr. 


ROL Adr. & AND Adr. 


LSR Adr. & EOR Adr. 


en | PER 


Store (A AND X) Adr. 


LDX Aadr. 


& LDA Adr. 


VPRDANOPAWOIOAIANDODODO DITWOIAIADDTDTWEOIAADODT DIE II DM © 
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4) ASSEM 


37 COUNT EQU $FD 

38 CSWL1 EQU $FE 

39 CSWHLl EQU $FF 

40 

41 INSDS1 EQU $F882 

42 INSDS2 EQU $F88C 

43 INSTDSP EQU $F8DP 

44 NXTCOL EQU $F8F5 

45 PCADJ EQU $F953 

46 COUT EQU $FDED 

47 ALPC EQU $FE75 

48 

59 ORG $94C8 

51 

52 * Schiebt EDA in Page 3, 

53 * setzt Ctrl-Y-Pointer und HIMEM 
54 * für die Opcode-Tabellen 

55 

56 LDX #FMT3-ROUT 

57 INITLP LDA ROUT-1,X 

58 STA $2FF,X 

59 DEX 

60 BNE INITLP 

61 LDA #$4C 

62 STA $3F8 

63 LDA #<EXTLIST 

64 STA $3F9 

65 LDA #>EXTLIST 

66 STA $3FA 

67 LDA #<FMT3 

68 STA HIMEM 

69 LDA #>FMT3 

7 STA HIMEM+1 

7 RTS 

12 

73 ROUT 

74 

75 * EDA-Beginn bei $309 

76 

77 ORG $399 

78 

79 * Ruft 20mal (2® Zeilen) INSTDSP2 
80 * auf und erhöht mit PCADJ den 
8l * Befehlszähler 

82 

83 EXTLIST LDA CSWL 

84 STA CSWL1 

85 LDA CSWH 

86 STA CSWHl 

87 LDA #29 

88 STA LCOUNT 

89 JSR AIPC 

99 EXTLIST1l JSR INSTDSP2 

91 JSR STCSW2 

92 JSR PCADJ 

93 STA PCL 

94 STY PCH 

95 DEC LCOUNT 

96 BNE EXTLISTI 

97 RTS 

98 

99 * Biegt CSWL-Pointer zu COUT2 um 
19® 

11 STCSWl LDX #<COUT2 

192 STX CSWL 

193 LDX #>COUT2 

194 STX CSWH 

105 RTS 

106 

107 %* Setzt CSWL zurück, so daß ein 
108 %* eventuelles DOS nichts "merkt" 
199 

11® STCSW2 LDX CSWL1 

111 STX CSWL 

112 LDX CSWHl 

113 STX CSWH 

114 RTS 

115 

116 COUT-Routine, die sowohl ohne 
117 DOS als auch mit DOS nicht 
118 "abzuhängen'" ist und nach dem 
119 Xten Aufruf (X=COUNT) wieder zu 
129 EDA springt 

121 

122 COUT2 STX XSAVE 

123 JSR STCSW2 

124 JSR COUT 

125 JSR STCSWl 


z.page,Y 

"- absol.,Y 
DEC/CMP (ind. ,X) 
"_ zeropage 
absolute 

(ind.),Y 

z.page,X 

absol.,Y 

"- absol.,X 
INC/SBC (ind. ,X) 
""- zeropage 
absolute 

(ind.),Y 

z.page,X 

absol.,Y 

absol.,X 

find. ).YX 


DEC Adr. & CMP 


INC Adr. & SBC Aadr. 


Speichere <B>itß/3 von 

<A> AND <X> nach Aar. 

AND Adr. & LSR A 

AND Adr. & ROR A 

<L>ade A mit <X> AND 

<I>mmedediate 

impl. Lade <S> mit <A> AND <X> 
(besteht aus 3 Bytes, von 
denen die letzten 2 Bytes 
beliebig sein können) 

absol.,Y Lade <A>,<X>,<S> mit S 
AND Adr. 

immed. Lade X mit <A> AND <X> 
<M>inus immediate 

absol.,X <S>peichere <B>itß/3 von 
<Y> nach Adr. 

absolute <S>peichere <H>igh Byte+l 
der Adr. AND <X> nach Aadr. 

absolute Speichere <H>igh Byte+tl 

der Adr. AND <X> AND <A> 

nach Adr. 


NIAODODODODTOIIDDTDTWVD Or » 


W 


immed. 
immed. 
immed. 


DD 


DB ,2B AND 

EB SBC 

1A,3A,5A NOP 

7A,DA,FA 

80,82,C2 NOP besteht aus 2 Bytes, von 
E2,04,14 denen das letzte Byte 
54,44,54 beliebig sein kann 
64,74,D4 

F4,89 

5.10.56 besteht aus 3 Bytes, von 
50,7C,DC denen die letzten 2 Bytes 
FC beliebig sein können 


EDA 


KRRKKRKRFRKRTERTTTE TH I HE A HE + 
* 


23 
oO 
> 


(E)xtended (D)is-(A)ssembler 


von Christoph Bregler 
Oktober 1984 


vovoıoakPhuvmd rm 


für die zusätzlichen 
6502-Codes 
(keine 65Cß2-Codes! ) 


Speicherbelegung: $P399-$P3CC 
$95B8-$95FF 


Benutzung: 

Wie den Monitor-List-Befehl. 
Anstatt 'L' wird Ctrl-Y ein- 
gegeben. 


Dr HH Hr HH 
SO ID PUD HS 
akku KeFrKF F  ı ı * 


KR KTFKTKI  TFKI KK A IK IK I A a 


DD 
DH 


KRRFRFKRFRFRFTTTT THE HER 


DWVDDXD 
[0 ur Sue) 


LMNEM EQU $2C 
FORMAT EQU $2E 
LENGTH EQU $2F 
CSWL EQU $36 
CSWH EQU $37 
PCL EQU $3A 
PCH EQU $3B 
HIMEM EQU $73 
XSAVE EQU $EE 
XSAVl EQU $EF 
LCOUNT EQU $FC 


QDVDUVDD 
ao nN0 


oa oa Wo 
vr 


oa oa W 
[0 ) u 0 u = 
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LDX INSTDSP+3 
DEC . XSAVl 
BNE i MNEML1,X 
PLA : LMNEM 
PLA : MNEMR1,X 
RET RTS i #3 
NXTCOL-2 
* Prüft, ob ein nicht definierter 
* Befehl anliegt RTEND 


INSTDSP2 JSR INSDS1 Tabellen, die in PAGE $95 
CMP_ #$1® ;?-CODE stehen: 
BNE CONT 
JSR STCSWl ORG ROUT+RTEND-EXTLIST 


* Prüft, ob ein Befehl anliegt, Tabelle für die Länge der 
* der durch die folgende De- NOP-Befehle 
* codierung falsch ausgedruckt wird . 


FMT3 HEX 81819982 

LDA (PCL),Y 
LDX #16 
CMP EXTBL,X * Tabelle für die Adressierungs- 
BEQ EXT * arten: 
DEX 
BPL EXTLP Ä FMT4 HEX 818181 :$XX 

HEX 4D :(SXX),T 
LSR HEX 81 »$XX 
BCS ODD . HEX 2121212121 ;#$XX 


* Decodierung der NOP- und CRASH- : HEX 82 :$XXXX 
* Befehle : HEX 86 :$XXXX,Y 
HEX 2121 :#$XX 
LSR HEX 92 :$XXXX,X 
AND #3 e HEX 8282 :$XXXX 
TAX 
BEQ CRASH * Tabelle für die zusätzlichen 
LDA FMT3,X * Mnemonics: 
STA FORMAT 
AND #3 : MNEML1 HEX T7C7C7C ‚NOP 
STA LENGTH i HEX 18 ;BAX 
LDA #$3E ;NOP+? : HEX 7C ;NOP 
SEC ; HEX 1313 ‚AND 
CRASH BCC NOP ; HEX 6D ;LSA 
EOR #$19 ; ?-CODE j HEX 9C ;ROA 
CONT JMP INSTDSP+3 s HEX 6E ;LXI 
HEX A® ;SAX 
* Decodierung der "Doppel-Mnemo- ; HEX 16 ;AXS 
* nic"-Befehle (z.B. INC/SBC) j HEX 16 ;‚AXM 
i HEX A® ;SBC 
ODD ROL j HEX A® ;SBY 
AND #$F9 HEX A2 ;SHX 
ORA #5 S HEX 4E ;HXA 
JSR INSDS2+2 
PHA € MNEMR1 HEX 222222 ‚NOP 
LDA (PCL),Y " HEX B2 ;BAX 
AND #$F9 : HEX 22 ;NOP 
ORA #6 : HEX CACA ;AND 
JSR INSDS2+2 h HEX 94 ‚LSA 
PHA j HEX 94 ;ROA 
LDA (PCL),Y 4 HEX 54 ;LXI 
TAX : HEX B2 ‚SAX 
LSR N HEX 68 ‚AXS 
LSR ; HEX 5C ;AXM 
LSR ; HEX C8 ‚SBC 
TXA j HEX F4 ;SBY 
ADC #-2 h HEX 72 ‚SHX 
JSR INSDS2+2 : HEX 44 ;HXA 
LDA #15 ;COLM.-8 
STA COUNT * Tabelle der Codes mit den 
PLA * Mnemonics von oben: 
JSR INSTDSP+3 
LDA #"/" : EXTBL HEX 82CRE2 ;NOP 
JSR COUT j HEX ;BAX 
LDX #3 3 HEX ;NOP 
JMP $F8E9Y 4 HEX ;AND 
HEX ; LSA 
* Decodierung der "unregelmäßi- : HEX ;ROA 
* gen" Codes nach den Opcode- £ HEX ;LXI 
* Tabellen in PAGE $95 : 290 HEX ;SAX 
291 HEX ‚AXS 
EXT LDA FMT4,X : 292 HEX ;‚AXM 
STX XSAVl ; 293 HEX ‚SBC 
STA FORMAT i 294 HEX ;SBY 
AND #3 ; 295 HEX ;,SHX 
STA LENGTH \ 296 HEX ;HXA 
LDA #13 297 
STA COUNT 298 DOSBUF 
LDA __ #952 : 312 Bytes 
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Ein gewöhnlicher Mikroprozessor kann im allgemeinen keine höheren mathemati- 
schen Funktionen als Maschinenbefehl ausführen. Ausgenommen sind natürlich die 
Arithmetik-Prozessoren. Neuere Mikroprozessoren wie der MC 68000 von Moto- 


rola haben immerhin Divisions- und Multiplikationsbefehle für Ganzzahlen in 
ihrem Befehlssatz. Fließkommaarithmetik aber beherrschen diese noch immer 
nicht. Wie man höhere mathematische Funktionen in Pascal beschreiben kann, 


soll dieser Artikel zeigen. 


Transzendente 





Funktionen ın Pascal ....... 


Ergebnisse von Berechnungen höherer 
mathematischer Funktionen sind fast nie 
genau, da sie Fließkommaarithmetik vor- 
aussetzen. Die sogenannten reellen Zah- 
len können durch keine noch so große 
Anzahl von Bits in jedem Zahlenbereich 
genau dargestellt werden. Die Eulersche 
Zahl e z. B. hat unendlich viele Nachkom- 
mastellen. Das liegt daran, daß sich e aus 
einer Potenzreihe, der sog. Exponential- 
reihe, berechnen läßt. Diese Reihe hat 
unendlich viele Glieder. Die ersten lauten: 
1+1/1!+1/2!+1/31+1/4.. 
Entsprechend ist eine Potenz von e, z.B.: 
eTx=1+rx/1!+x1T2/21+x?3/ 
TR 


Ähnliches gilt für den Sinus, den Cosinus 
und für andere Funktionen wie den Sinus 
Hyperbolicus (sinh) oder den Cosinus Hy- 
perbolicus (cosh). Der Sinus ist also nicht 
irgendeine Relation zwischen Gegenka- 
thete und Hypotenuse eines rechtwinkli- 
gen Dreiecks, sondern eine Potenzreihe, 
die für alle Werte x, für die man den Sinus 
berechnen will, gegen einen bestimmten 
Funktionswert konvergiert. Diesen Funk- 
tionswert nennt man dann den Sinus der 
Zahl x. 


Das hier vorgestellte Programm zeigt die 
Implementierung von transzendenten 
Funktionen in UCSD-Pascal. Es ist als 
‚Unit‘ geschrieben und läßt sich durch ein 
einfaches „uses“ nach dem Programm- 
kopf benutzen. Die Segmentnummer ist 
absichtlich als 29 gewählt, die damit der 
Nummer des in der SYSTEM.LIBRARY 
enthaltenen TRANSCEND entspricht. 


Für den Arcustangens wurde allerdings 
die Abkürzung arctan und nicht atan, wie in 
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TRANSCEND, gewählt. Das entspricht der 
Definition dieser Funktion in Standard- 
Pascal. 


Hat man die ersten sieben Funktionen im- 
plementiert, lassen sich alle weiteren 
Funktionen mit Hilfe dieser sieben aus- 
drücken. 


Der Sinus eines Wertes x wird in der ‚func- 
tion sine‘ über die Potenzreihe des Sinus 
berechnet. Sie lautet: 
sinx)=x-x?T3/31+x75/5!-x17 
rl. 

Bevor die ersten fünf Glieder dieses Aus- 
drucks mittels des Hornerschemas be- 
rechnet werden, wird der Wert x, auch das 
Argument genannt, in den Bereich [-Pi / 2, 
+Pi / 2] gebracht, denn es gibt ein z und 
ein n, für die gelten: 

x=z+tn-Pi. 

Das liegt an der Periodizität des Sinus. Ist 
der Wert des Sinus sehr klein (< 
0.00025), dann gilt näherungsweise: x = 
sin (x). Außerdem wird in der Berechnung 
die Beziehung sin (-x) = - sin (x) benutzt. 


Der Cosinus ist nichts anderes als ein um 
Pi / 2 verschobener Sinus, und so wird er 
auch berechnet. 


Bei der Exponentialfunktion ‚exp‘ wird ein 
z und ein n gefunden, so daß gilt: 
eTx=etTz'e?(n-ınQß))=eTfz: 
(e! In) Tn=efz:2'n. 

Diese Darstellung ist deshalb günstig, weil 
der Exponent einer Realzahl intern zur Ba- 
sis 2 dargestellt wird, und nicht zur Basis 
10. Bevor der Werte ? x berechnet wird, 
muß x in den Bereich [-In (2) / 2, +In (2) / 
2] gebracht worden sein. 


Ähnlich wird beim ‚In‘ verfahren. Man kann 


nämlich ein z und ein n finden, so daß gilt: 
In (x) = In (zZ) + n - In (2). 


Dazu muß ein z aus dem Bereich [O.5, 1] 
und n ein natürliche Zahl sein. 


Die Quadratwurzel ‚sqrt‘ wird ebenfalls in 
ähnlicher Form berechnet. Es werden ein 
n und ein z gesucht, sodaßBx=z-x nn 
ist. Für n und z gilt derselbe Bereich wie 
beim ‚In‘. Es ist dann 

sart (x) = sart (z)-2 T (ndiv2), 

wenn n gerade ist, und 

sart (x) = sart (z) - (2 T ((n + 1) div 2)) / 
sart (2). 

Die Wurzel selbst wird mit Hilfe des New- 
tonschen Näherungsverfahrens in drei 
Schritten berechnet. 


Bei allen Funktionen wird das Wissen vor- 
ausgesetzt, wie die Realzahlen intern co- 
diert sind. Dies macht sich in dem Typ 
Realrec bemerkbar, der zwei Varianten 
überlagert, nämlich die Realzahl selbst 
und die einzelnen Komponenten der Real- 
zahl. Diese Komponenten sind Mantisse, 
Exponent und Vorzeichen. 


Wer flüssig in Pascal programmieren kann 
und trotzdem die Berechnungen der trans- 
zendenten Funktionen nicht ganz versteht, 
mag sich damit trösten, daß es wohl Ma- 
thematiker gewesen sein müssen, die sich 
derartige Tricks haben einfallen lassen. 
Dazu gehören auch die vielen Kniffe, wel- 
che Rundungsfehler etwas einschränken 
sollen. Ich selbst habe auch nicht alles auf 
Anhieb verstanden. 


‘ 
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{$S+} 
unit transcend; intrinsic code 29; 
interface 


function sin (x : real) : real; 
function cos (x : real) : real; 
function exp (x : real) : real; 
function arctan (x : real) : real; 
function 1n (x : real) : real; 
function log (x : real) : real; 
function sqrt (x : real) : real; 
function ld (x : real) : real; 
function tan (x : real) : real; 
function cot ix : res) : real: 
function arcsin (x : real) : real; 
function arccos (x : real) : real; 
function arccot (x : real) : real; 
function sinh (x : real) : real; 
function cosh (x : real) : real; 
function tanh (x : real) : real; 
function coth (x : real) : real; 
function arsinh (x : real) : real; 
function arcosh (x : real) : real; 
function artanh (x : real) : real; 
function arcoth (x : real) : real; 


function xpwry (x, y : real) : real; 


implementation 


const PIdiv2 
Sqart2div2 


= 1.5707963; 
= 0.70710678; 
type Realrec packed record 
case integer of 
®Ö : (Realval : real); 
l : (Mantl : integer; 
Mant2  D..127; 
Exp : 9..255; 
Sign :d..1l) 
end; {Realrec} 


a 
function sine (X : real; Sign : integer) 


const RezPI 0.3183099; {1/PI} 
PIl 3.140625; {PIl + PI2 = PI} 
PT2 d.00096765364; 
Fak9 d.000002601903; {1/91} 
Fak7 -0. 00019807421; {1/71} 
Fak5 0.008333025; {1/5!} 
Fak3 = -®9. 16666657; {1/3!} 


Xsqr : real; 
Npi : integer; 


begin {sine} 
if X > 1000009.0 then halt; 
Npi := round (X * RezPI); 
if odd (Npi) then Sign := - Sign; 
X :=X - Npi * PIl - Npi « PI2; 
if abs (X) >= 9.00025 then 
begin 
Xsar :=X «X; 
X := X +X x ((((Fak9 *« Xsqar + Fak7) * 
Xsqr + Fak5) * Xsqr + Fak3) = Xsar) 
end; {if} 
sine := Sign = X 
end; {sine} 


zz 


function sin {(x : real) : real}; 


begin {sin} 
ifx< 069.9 
then sin := sine (-—X, -|l) 
else sin := sine ( X, ]) 
end; {sin} 


mm 


function cos {(x : real) : real}; 


begin {cos} 
cos := sine (abs (x) + PIdiv2, ]l) 
end; {cos} 


function exp {(x : real) : real}; 


const RezLN2 = 


LN2_1 


LN2_2 


RC1 
RC2 


N 


Xsqr 


R 


1.442695; 
0.6933593; 
-0.00021219444; 
0.0041602895; 
0.04998718; 


{1/LN (2)} 
{LN2_1 + LN2_2 = LN (2)} 


integer; 
real; 
real; 


Tricky : Realrec; 


begin {exp} 


if x = 


D. 


then exp 


else 


begin 


N 
x 


Xsqr 


R 


Tricky.Realval 
Tricky.Exp 
exp 


d 
= 1.9 


= round (x * RezLN2); 
x- N * LN2_l - N x LN22; 
#5 + 
x * (RCl * Xsar + 9.25); 
0.5 +R/ (RC2 «x Xsar + 9.5 -R); 
Tricky.Exp + (N + ]l); 
Tricky.Realval 


end {else} 
end; {exp} 


function arctan {(x : 


const Maxloop = 8; 


var Xsqr 
R 
Neg 
ii 
begin 
Xsqar := 


real; 
real; 


: boolean; 


x 


integer; 


* X, 


if abs (x) > 1.8 then Xsqar := 1.® / Xsar; 
R := 2 * Maxloop + 1; 
for I := Maxloop downto 1 doR := 2.8 «I - 1. + 


T# I # Zsar / BR; 


if abs (x) > 1.9 


then 
begin 
Neg 


Xsqar 
if Neg 
then arctan := -Äsqar 
else arctan : Xsaqar 
end {if} 
else arctan := x /R 
end; {arctan} 


=: x<#9; 
:= PIdiv2 - 1.8 / (abs (x) « R); 


function In {(x : real) : real}; 


const LN2_l 


RC1 
RC2 


LN2_2 


0.6933593;; 
0.55270747; 
6.632718; 

= -9. 00021219444; 


Tricky : Realrec; 


Rl 
R2 
R3 
RA 
E 


begin {ln} 
if X <= ß.®ß then halt; 


E 


Tricky.Realval := x; 


real; 
real; 
real; 
real; 
integer; 


Tricky.Exp - 126; 


Tricky.Exp := 126; 


x 


:= Tricky.Realval; 


if x > Sqrt2div2 
= (x - 0.5 -9.5) / (x *« 0.5 + 9.5) 


then R2 
else 
begin 
E 
R3 


R2 : 


E-|]; 
X -095; 
R3 / (R3 = 0.5 + 0.5) 


end; {else} 
Rl := R2 « R2; 
In := Ex LN2_l + (R2 + R2 * (Rl * RCl / 
(RC2 - Rl))) + E «* LN2_2 


end; {ln} 
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Die Aufrüstung Ihres 128K Mac auf 512K kostet bei uns: 
pm 1690, — incı. MWST. 


Schicken Sie uns Ihren Macintosh. Rücksendung innerhalb von 24 Stunden. Auf 
Wunsch geben wir Ihnen auch Händleradressen in Ihrem Raum bekannt. 
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function log {(x : real) : real}; 


begin {log} 
log := In (x) * 0.43429448 {1 / In (10) = 9.43429448} 
end; {log} 


Damm) 


function sqrt {(x : real) : real}; 


const Rl = 9.41731; 
RC2 = 9.590916; 


R : real; 

Tricky : Realrec; 
E : integer; 
I : integer; 


begin {sqrt} 

if X< GB then halt; 

ifX=9.ß 

then sqrt := 9.® 

else 

begin 
Tricky.Realval := x; 
E := Tricky.Exp - 126; 
Tricky.Exp := 126; 
x := Tricky.Realval; 
R := RC1 + RC2 x x; 
for I:=ßto2doR :=95# (R+x/R); 
if odd (E) then 
begin 
R :=R «* Sqrt2div2; 
E:=E+l 
end; {if} 
Tricky.Realval :=R; 
Tricky.Exp := Ediv 2 + Tricky.Exp; 
sqrt := Tricky.Realval 
end {else} 
end; {sqrt} 


function ld {(x : real) : real}; 


begin {log} 
ld := In (x) * 1.44269594 {1 / In (2) = 1.44269594} 
end; {log} 


zz — 


function tan {(x : real) : real}; 


begin {tan} 
tan := sin Ix) / 088 [x) 
end; {tan} 


function cot {(x : real) : real}; 


begin {cot} 
cot := 1 / tan (x) 
end; {cot} 


Te 


function arcsin {(x : real) : real}; 


begin {arcsin} 

if abs (x) > 1 then halt; 

if abs (x) = 1.9 

then arcsin := x * PIdiv2 

else arcsin := arctan (x / sqart (l - sqar (x))) 
end; {arcsin} 


zz 


function arccos {(x : real) : real}; 


begin {arccos} 
if abs (x) > 1 then halt; 
arccos := PIdiv2 - arcsin (x) 
end; {arccos} 


Damm) 


function arccot {(x : real) : real}; 


begin {arccot} 
arccot := PIdiv2 - arctan (x) 
end; {arccot} 








function sinh {(x : real) : real}; 


begin {sinh} 
sinh := 9.5 * (exp (x) - exp (-x)) 
end; {sinh} 


m) 


function cosh {(x : real) : real}; 


begin {cosh} 
cosh := ®.5 * (exp (x) + exp (-x)) 
end; {cosh} 


zz 


function tanh {(x : real) : real}; 


begin {tanh} 
tanh := sinh (x) / cosh (x) 
end; {tanh} 


zz 


function coth {(x : real) : real}; 


begin {coth} 
if x = then halt; 
coth := 1 / tanh (x) 
end; {coth} 


zz 


function arsinh {(x : real) : real}; 


begin {arsinh} 
arsinh := In (x + sqrt (sqr (x) + 1)) 
end; {arsinh} 


zz 


function arcosh {(x : real) : real}; 


begin {arcosh} 

if x < 1.® then halt; 

arcosh := 1n (x + sqart (sar (x) - ])) 
end; {arcosh} 


ze 


function artanh {(x : real) : real}; 


begin {artanh} 

if abs (x) >= 1 then halt; 

artanh := 9.5 *& In ((l+x) / (1-x)) 
end; {artanh} 


function arcoth 


begin {arcoth} 

if abs (x) <= 1 then halt; 

arcoth := ®.5 * In ((x +1) / (x -])) 
end; {arcoth} 


(Ammann 


function xpwry {(x, y: : real}; 


begin {xpwry} 
if x < ® then halt; 
ify=d 
then xpwry := 1.9 
else 
ifx=d 
then 
if Y<O 
then halt 
else xpwry := ®.® 
else xpwry := exp (y * In (x)) 
end; {xpwry} 


{ 


begin {transcend} 
end {transcend} 
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Das CP/M- 
Directory näher 





beleuchtet 


Der Aufbau von 16-Sektor-CP/M-Disketten 


von Dr. Jürgen B. Kehrel 


Sie wollen von DOS aus auf CP/M-Textfiles zugreifen? Sie wollen gelöschte Files 
wiederbeleben? Sie wollen wissen, wie Ihre CP/M-Disketten belegt sind? Immer 
dann und in vielen anderen Fällen müssen Sie den genauen Aufbau des 


Directory kennen. 


Die Z80-Karte von Microsoft ist eine der 
häufigsten Ergänzungen zum Apple II, 
denn sie eröffnet den Zugang zu vielen 
interessanten kommerziellen Program- 
men. Trotzdem steht in Büchern und Zeit- 
schriften nur wenig über Interna von Ap- 
ple-CP/M. Das mitgelieferte Softcard- 
Handbuch schweigt sich z.B. über den 
Aufbau einer CP/M-Diskette völlig aus. 
Aber da Sie leicht sehen können, daß CP/M- 
Disketten mit COPYA zu vervielfältigen 
sind (was Sie aber nicht tun sollten, s.u.), 
liegen Sie mit Ihrer Vermutung ganz rich- 
tig, daß zwischen DOS 3.3 und CP/M 
Ähnlichkeiten bestehen. Diese sind so 
groß, daß Sie z.B. mit DOS 3.3 CP/M- 
Disketten lesen können. Im Heft 3/1985 
vom Peeker wurde ein praktisches Bei- 
spiel vorgestellt. 
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Abb. 1: CP/M-Diskette (schematisch) 
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Blöcke =» Fa —E 


8 BE 23 27 BEE 3233 3 88 


Der Diskettenaufbau 


Alle folgenden Erläuterungen beziehen 
sich auf das 16-Sektor-CP/M, Version 2.2 
von Microsoft (Digital Research). Das 
FORMAT-Programm erzeugt eine Diskette 
mit 35 Spuren (Tracks) zu je 16 Sektoren. 
Alle Sektorinhalte werden dabei auf $E5 
gesetzt. Eine solche Diskette enthält keine 
Systemspuren, kein Directory und auch 
keine Files, anders als beim INIT-Befehl 
von DOS. Mit dem COPY-Programm kön- 
nen Sie nun auf die Spuren O—2 analog zu 
DOS den CP/M-Systemcode aufbringen. 
Der Befehl SYSGEN existiert in der Apple- 
Version nicht. 


Die verbleibenden 32 Spuren werden vom 
CP/M in 128 Blöcke unterteilt, die von 


:7:8:8:A:B:C.D: E: F:10: 11:12°13?14 215 : 16:17: 18:19 1A -1B:1C:1D:1E! IF: 20: 21:2 
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. 
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$00 bis $7F durchnumeriert sind. Jeder 
Block umfaßt 1024 Bytes (1K) und setzt 
sich seinerseits aus 8 Records zu je 128 
Bytes zusammen. Da nun jeder Disketten- 
sektor aber 256 Bytes umfaßt, gehören 
immer 2 Records zu einem Sektor und 4 


Sektoren zu einem Block. Sie können sich 
einfach ausrechnen, daß 4 Blöcke gleich 
16 Sektoren sind und damit eine Spur 
ergeben (Tabelle 1). Die Blöcke werden 
von außen nach innen gezählt, so daß z.B. 
die Blöcke 0 bis 3 zur Spur 3, die Blöcke 4 
bis 7 zu Spur 4 usw. gehören (Spur = INT 
(Blocknummer/4) + 3). Ein Block ist die 
kleinste Einheit, die von CP/M auf einmal 
gelesen oder geschrieben werden kann, 
so daß selbst Miniprogramme immer min- 
destens 4 Sektoren belegen, was gegen- 
über DOS eine gehörige Platzverschwen- 
dung bedeutet. 


Die Blöcke O und 1 der Diskette enthalten 
ihr Inhaltsverzeichnis (Directory), alle übri- 
gen Blöcke stehen zur Abspeicherung von 
Daten bereit. In der Abbildung 1 sind die 
Blöcke vereinfachend als zusammenhän- 
gende Bereiche dargestellt. Das ist aber in 
der Praxis nicht so, denn zur schnelleren 
Verarbeitung benutzt CP/M ein sogenann- 
tes „Sector-Interleaving“ (auch Skewing 
genannt). Näheres dazu steht in der ange- 
gebenen Literatur. Da auch DOS 3.3 nicht 
die physikalische Sektornumerierung be- 
nutzt, ist der Zusammenhang zwischen 
DOS-Sektoren und CP/M-Blöcken nur 
über eine Tabelle zu erfassen (Tabelle 2). 
Wegen des unterschiedlichen „Skewing“ 
sollten Sie auch nicht COPYA für CP/M 
verwenden, da CP/M dann diese Kopien 
sehr langsam liest. „Relativer Block“ in 
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Tabelle 1: Gleichungen 
128 Byte = ] Record 

2 Records = 1 Sektor 

8 Records = 1 Block 

1 Block = 4 Sektoren 
16 Sektoren = 1 Spur 

4 Blöcke = 1 Spur 


Tabelle 2: Skewing 
Rel. Block DOS-Sektoren 


Block ® 8,883 
Block 1 9285 
Bock2 8287 
Block 3 DAN: 


Tabelle 2 bedeutet dabei die Blockposition 
in einer Spur, so daß die Blöcke $00, $04, 
$08, ..., $7C z.B. alle den relativen Block O 
bilden (Rel. Block = Blocknummer MOD 
4). 


Das CP/M-Directory 


Nachdem Sie nun wissen, wie die CP/M- 
Diskette organisiert ist, verstehen Sie 
auch leichter die Eintragungen im Direc- 
tory. 


$C3 statt $43), hätte der File das R/O- 
Attribut, wäre also nur lesbar, aber nicht 
löschbar oder zu überschreiben. Ein ge- 
setztes Bit 7 in Byte $0A kennzeichnet 
System-Files, die bei einem DIR-Befehl 
nicht gelistet werden. Die Bits werden mit 
dem STAT-Programm verändert. Das Byte 
$0C unterscheidet mehrfache Einträge für 
denselben File, was bei großen Files (z.B. 
GBASIC) notwendig ist. Mehr über diese 
Extension-Zahl später. Byte $0D und $0E 
sind immer gleich $00. Das Byte $0F be- 
zeichnet die Zahl der Filerecords in die- 
sem Eintrag, im Beispiel für FORMAT- 
‚COM $12 = 18. 

Die restlichen 16 Bytes stellen eine Liste 
der vom File belegten Blöcke in der richti- 
gen Reihenfolge dar, in unserem Beispiel 
die Blöcke $02, $03 und $04. Belegt ein 
File weniger als 16 Blöcke, so wird mit 
Nullen aufgefüllt. Sind es mehr als 16 
Blöcke, wird ein zweiter Eintrag angelegt, 
der in der vorderen Hälfte ganz dem er- 
sten entspricht, nur Byte $0C wird auf $01 
hochgezählt und Byte $0OF enthält natürlich 
die Records in diesem Eintrag (s. MBASIC 


Bitt7=0 — R/W 







Bt7=1 —o R/O 


Bit7=0 —» normal 
Bit7 = 1 —e Systemfile 


| 12345678 


User Name 
oder Bit7=0 
$E5 





Byte: 0 






Abb. 2: Directory-Eintrag 


Die beiden Blöcke O und 1 (2K) bestehen 
aus 64 Eintragungen von je 32 Bytes Län- 
ge, die alle nach demselben Schema auf- 
gebaut sind und exakt die 2 Blöcke füllen. 
Abbildung 2 zeigt den Aufbau eines Ein- 
trags, Abbildung 3 ist der erste Teil des 
„OCP/M System Master Directory“, wie ihn 
ein Sektoreditor listet. Byte $00 ist bei 
einem gelöschten File oder einem unbe- 
nutzten Eintrag gleich $E5, sonst ent- 
spricht es der „User-Number”, die zwi- 
schen $00 und $OF liegt. Im allgemeinen 
finden Sie hier nur $00 wie in unserem 
Beispiel. Die Bytes $01 bis $08 enthalten 
den Filenamen mit gelöschtem Bit 7. Ist 
der Name kürzer als 8 Zeichen, wird der 
Eintrag mit $20 aufgefüllt. Byte $09 bis 
$0B enthalten die 3 Zeichen des Filetyps; 
gegebenenfalls sind auch sie mit $20 auf- 
gefüllt. Normalerweise sind auch hier die 
Bit 7 gelöscht wie im Beispiel. Wäre das 
Bit 7 in Byte $09 gesetzt (hier also z.B. 
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oder GBASIC). Bis zu 8 Einträge (Exten- 
sions) sind bei einem File theoretisch 
möglich, der die ganze Diskette füllt. Au- 
Ber bei Wörterbüchern bin ich solchen 
noch nicht begegnet. Sie könnten einen 
solchen File „am Stück“ mangels Spei- 
cherplatz nicht mehr laden. Die mehrfa- 
chen Einträge für einen File liegen nur bei 
„neuen“ Disketten sauber hintereinander, 
können aber nach vielen Lösch- und 
Schreiboperationen über das ganze Direc- 
tory verteilt sein, wie ich durch unange- 
nehme Erfahrung lernen mußte. 

FORMAT.COM ist ein einfacher File. Er 
belegt $12 Records entsprechend 9 Sek- 
toren, von denen die ersten vier in Block 
$02, die zweiten vier in Block $03 und der 
neunte in Block $04 liegen. Die restlichen 
3 Sektoren in Block $04 sind leer. MBA- 
SIC.COM ist ein File mit 2 Extensions, 
denn er belegt $80 + $40 = 192 Records 
in den 24 Blöcken von $06 bis $1D. Jetzt 


Se NE 


ee > 





Abbildung 3: Directory-Anfang 


TRACK: 93 SECTOR: d® CP/M DRIVE 2 
DD D1ı 02 03 da 05 96 97 
08 09 BA OB GC BD BE OF ASCII 

00: ®0 46 AF 52 AD 4l 54 29 . FORMAT 


20 43 4F AD BO DB 90 12 COM...R 
10: 92 03 dA DO DD 00 DD Ho BD... 
DD DO DD DO DD DO DO DD 
20: 9B0 43 AF 50 59 20 20 29 
20 43 4F AD BP 00 DD 8 COM...H 
30: 95 BD DO DD DO DD BO 00 E 
00 DO 00 DD BO DD DO 00 
40: MB AD 42 Al 53 49 43 29 
20 43 AF AD BB DD 00 80 COM... 


BEREEEREWER RE 


BEEEREREEORD N 


50: 0d6 07 08 09 PA DB BC PD FGHIJKLM 
ÖE OF 10 11 12 13 14 15 NOPQRSTU 
60: MP AD 42 Al 53 49 43 29 „MBASIC 
20 43 AF AD D1 BO 00 49 COMA..8$ 
70: 16 17 18 19 1A 1B IC 1D VWXYZÄÖU 
DD 00 OD DO DO OO DO 2.2... 
80: O0 47 42 Al 53 49 43 20 .GBASIC 
20 43 AF AD O0 00 DO 89 COM... 
9%: IF 20 21 22 23 24 25 26 _ 17458 
27 28 29 2A 2B 2C 2D 2E ’()+,—. 
Ad: GB 47 42 41 53 49 43 29 .GBASIC 
20 43 AF AD Pl BB BO 48 COMA. .H 
Bü: 2F 30 31 32 33 34 35 36 /8123456 


37 00 00 00 DO DO DM A T....... 


CO: PP 43 AF 4E 46 49 47 49 .CONFIGI 
aF 42 41 53 DO 00 DB 5A OBAS...: 
Dß: IE 38 39 3A 3B 3C 3D 3E A189:;<=> 
DD DO DD DO 00 DO DM ........ 
Eß: 00 50 49 50 20 20 20 29 .PIP 
20 43 AF AD DB DO DD 3A COM. ..: 
FB: 49 41 42 43 44 45 46 47 SABCDEFG 


DD DD 00 00 OO DD O4A........ 
CTRL-B = BACK 
CTRL-S = SELECT 
CTRL-X = EXIT 


FORWARD = CTRL-F 
PRINT = CTRL-P 
OPTIONS = ESC 


wird es Ihnen sicherlich leicht fallen, auch 
die anderen Eintragungen zu entschlüs- 
seln. 

Wenn möglich, belegt CP/M aufeinander- 
folgende Blöcke. An CONFIGIO.BAS se- 
hen Sie, daß es hier auch Ausnahmen 
gibt. 


Files entlöschen 


Jetzt bin ich Ihnen nur noch die Auflösung 
schuldig, wie Sie gelöschte Files wieder- 
beleben. Mit einem Sektoreditor (z.B. 
ZAP) suchen Sie den Directory-Eintrag 
des gelöschten Files auf Spur 3. Haben 
Sie ihn gefunden, ersetzen Sie in Byte $00 
die $E5 durch $00 und schreiben den 
Sektor zurück. Ihr File „lebt“ wieder, wenn 
Sie nicht zwischenzeitlich seine Blöcke 
neu beschrieben haben. Bei einem File mit 
mehreren Extensions müssen Sie natür- 
lich alle Eintragungen zurücksetzen. 


Literatur: 

Worth/Lechner: Beneath Apple DOS, 

Quality Software 1981 

A.R. Miller: Programmieren mit CP/M, Sy- 
‘ 


bex 1985 = 
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Apple-lIl-Monitor ....... 


Wie zu Wozniaks Zeiten 


Als ich zum ersten Mal etwas vom Macin- 
tosh hörte, war ich ziemlich auf diesen 
Computer gespannt: MC68000-Prozes- 
sor, 128K RAM, gute Grafik, Maus, ähnli- 
ches Betriebssystem wie bei der LISA, all 
das versprach viel. Im Computergeschäft 
kam es dann auch zu den ersten Maus- 
Bewegungen, Bildverschiebungen und 
Malversuchen. Doch bald wollte ich als 
echter Computer-Freak dann auch einmal 
in den Mac hineinschauen, eigene Pro- 
gramme schreiben, das ROM untersuchen 
USW. 


Später kam das Microsoft-Basic heraus, 
aber damit konnte ich auch nicht so richtig 
in den Mac „reinsehen“, und Basic ist 
ohnehin nicht meine Lieblingssprache. 
Viel interessanter ist doch das Program- 
mieren in Assembler! Immerhin gab es die 
Befehle „PEEK“ und „POKE“. Damit 
konnte ich mir wenigstens im Computer- 


EBEN Appie }I Monitor zZ 
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geschäft ein paar Bytes ausgeben lassen. 
Zu Hause wurde dann von Hand dis- 
assembliert, und siehe da: tatsächlich ein 
lauffähiges MC68000-Programm! Doch 
nachdem ich diese kurze Routine anna- 
hernd verstanden hatte, wollte ich wissen, 
wie sie weitergeht. Aber von Hand war 
dies alles viel zu umständlich. Deshalb 
sortierte ich den Befehlssatz des 
MC68000 und schrieb schließlich einen 
MC68000-Disassembler in Basic. Bald 
wollte ich dann selbst die ersten Maschi- 
nenprogramme schreiben und ausprobie- 
ren. Also wurde der Disassembler „aufge- 
bohrt“, und so ist dann schließlich dieses 
Monitorprogramm namens MACMONI- 
TOR entstanden. Es simuliert den Monitor, 
den ich vom Apple Il her gewohnt war. 
Zudem sind einige Befehle funktionell er- 
weitert worden. Mit diesem Programm 
kann man sich dann wieder auf sicherem, 
sprich gewohntem Boden bewegen und 
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Abb. 1: Mac-Taktfreguenz 
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für den Mac 


die ersten Gehversuche unternehmen. Es 
gibt aber auch einige Nachteile: 

— Das Programm und das Basic-System 
belegen viel zuviel Platz im Speicher. Man 
ist Immer irgendwie beengt. Und das bei 
128K! 

— Es gibt kaum Unterlagen über das ROM 
des Macintosh. Es ist erstens 64K lang 
und zweitens so komplex (Interrupt-Routi- 
nen, Treiber usw.), daß man mit dem Un- 
tersuchen nicht so richtig vorankommt. 
Wie wird beispielsweise ein Zeichen aus- 
gegeben, wie liest man Zeichen von der 
Tastatur ein usw.? (Inzwischen weiß ich 
es; dazu an anderer Stelle mehr). Trotz- 
dem ist der MACMONITOR bei mir das 
meistbenutzte Programm. 


1. MACMONITOR-BEFEHLE 


Zunächst beschreibe ich die implemen- 
tierten Befehle: 


Speicherinhalt ausgeben 


{adrs} — gibt den Inhalt des Bytes mit der 
Adresse {adrs} aus. 

{adrs1}.{adrs2} — zeigt den Inhalt von 
allen Bytes zwischen f{adrsi1} und 
{adrs2}. 

RETURN-Taste — gibt den Inhalt von bis 
zu 16 weiteren Bytes aus, die nach der 
letztbenutzten Adresse folgen. 


Speicherinhalt verändern 


{adrs}:{val} {val} ... — speichert die an- 
gegebenen Bytes in aufeinanderfolgenden 
Adressen ab {adrs}. 

“{val} {val} ... — speichert die Bytes ab 
der nächsten Adresse. 


Verschieben und Vergleichen 


{dest}<{start}.{end}M - kopiert den In- 
halt des Bereichs {start}.{end}:in den Be- 
reich ab der Adresse {dest}. 

{dest}<{start}.[end}V - vergleicht den 
Inhalt des Bereichs {start}.{end} mit dem 
des Bereichs ab der Adresse {dest}. Un- 
terschiedliche Bytes werden ausgegeben. 


41 





Schreiben/Lesen auf/von Diskette 


{start}.(end}W - schreibt den Inhalt des 
Bereichs {start}.{end} auf Diskette. Der 
Name der Datei wird vom Monitor erfragt. 
{start}R - liest eine Datei von Diskette in 
den Bereich ab der Adresse {start}. Der 
Name der Datei wird vom Monitor erfragt. 
Es wird die gesamte Datei eingelesen. 

R - wie der vorangehende Befehl, nur wird 
die Datei in den Bereich geladen, von dem 
aus sie gespeichert wurde. Dieser Bereich 
wird vom Monitor ausgegeben. 


Starten und Auflisten eines Pro- 
gramms 


{adrs!}G - startet das Maschinenpro- 
gramm ab der Adresse {adrs}. In den 
Monitor muß mit einem „RTS“-Befehl zu- 
rückgekehrt werden. 

{adrs}L - gibt die ersten 10 Befehle des 
Programms ab der Adresse {adrs} disas- 
sembliert aus. Nachfolgende „L”-Kom- 
mandos zeigen jeweils die nächsten 10 
Befehle. 

{start}.(end}L — gibt das Programm im 
Bereich {start}.{end} in disassemblierter 
Form aus. 


Sonstige Befehle 


N - löscht den Eingabemodus. Dies wird 
benötigt, um nach einem „:“-Kommando 
andere Monitorbefehle ausführen zu kön- 
nen, z.B. 

E00:4E 75 NEOOL 

Q - beendet den Monitor und kehrt zum 
Basic zurück. (Beim Apple Il: „Otrl-C“.) 
{val}+{val} — addiert die beiden Werte 
und gibt das Ergebnis aus (bis zu 32 Bits). 
{val}-{val} — subtrahiert den zweiten 
Wert vom ersten und gibt das Ergebnis 
aus (bis zu 32 Bits). 

{slot}P - leitet die Ausgabe zu dem Aus- 
gabegerät mit der Nummer {slot} um. Es 
gibt die folgenden Nummern: 


0 —- „SCRN:“ (Bildschirm) 

1- „LPT1:* (Drucker) 

2 —- „COM1:“ (serielle Schnittstelle) 
3- „CLIP:“ (Zwischenspeicher) 


Alle anderen Nummern aktivieren den 
Bildschirm. (Beim Apple Il: „Ctri-P“.) 


2. ARBEITSWEISE DES 
PROGRAMMS 


Um das Programm im einzelnen verstehen 
zu können, sollte man vertraut sein 
— mit dem Apple-Il-Monitor, 
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— mit dem Befehlssatz des MC68000 und 
— mit dem Basic vom Macintosh. 

Der Apple-Il-Monitor ist z.B. im „Apple Il 
Reference Manual“ aufgelistet und ausrei- 


chend erklärt. Alle Angaben zum 
MC68000 habe ich dem „MC68000 Be- 
nutzer-Handbuch“ entnommen. Das Mi- 
crosoft-Basic des Macintosh wird als Serie 
im „Peeker“ vorgestellt. 

Es folgen nunmehr Erläuterungen zu den 
einzelnen Abschnitten des Programms 
(mit den entsprechenden Zeilennum- 
mern): 


100 - Initialisierung der Variablen 

Im Speicher wird genügend Platz für alle 
Variablen geschaffen. Aus Platz- und Zeit- 
gründen werden alle Variablen, die nicht 
mit „A“ anfangen, als Integer-Variablen 
erklärt. Zwei Arrays werden definiert, der 
Bildschirm als Ausgabegerät bestimmt 
und die nicht-proportionale Schriftart „Mo- 
naco“ ausgewählt. Zum Schluß wird noch 
der Bildschirm gelöscht. Anschließend er- 
tönt der „$FF66-Beep“. Dieser Teil ent- 
spricht dem Bereich $FF59 bis $FF68 des 
Apple-Il-Monitors. 


200 - Kommandozeile einlesen 

Dies entspricht weitgehend der 
„GETLNZ“-Routine des Apple-Il-Monitors 
($FD67). Mit dem Befehl „Ctri-X“ kann 
man nun aber nicht mehr eine Zeile Ilö- 
schen. 

Die gesamte Kommandozeile wird in 
CMDS$ eingelesen. Als Endmarke wird ein 
„#" angehängt. Das „RETURN”-Kom- 
mando (Leerzeile) wird durch das Zeichen 
„&“ ersetzt. Der Zustand des Monitors 
(MODE, $0031) in der Variablen MDE wird 
auf O gesetzt. Dieser Teil entspricht dem 
Bereich $FF69 bis $FF72 des Apple-Il- 
Monitors. 


300 — Nächste Zahl bestimmen 

Entspricht der „GETNUM“-Routine beim 
Apple-Il-Monitor ($FFA7). Es wird die 
nächste Hex-Zahl im Kommandostring ge- 
sucht. Diese Zahl steht in A2 ($003E/ 
$003F). Falls MDE (Zustand) auf O gesetzt 
ist, wird die Zahl auch in A1 ($003C/ 
$003D) und in A3 ($0040/$0041) kopiert. 
Die Variable DIG wird auf 1 gesetzt, falls 
mindestens eine Hex-Ziffer gefunden wur- 
de, sonst bleibt DIG auf O gesetzt. Beim 
Apple-Il-Monitor übernimmt diese Aufga- 
be das X-Register. 

Das erste Zeichen, das keine Hex-Ziffer 
ist, wird in D$ übernommen. Beim Kom- 
mandostring CMD$ wird die Hex-Zahl und 
dieses letzte Zeichen gelöscht. 

Falls das Ende der Kommandozeile er- 
reicht wurde, wird das Leerzeichen-Pro- 


gramm ab Zeile 610 ausgeführt, und eine 
neue Zeile wird eingelesen. Dies ent- 
spricht der „CRMON“-Routine bei $FEF6. 


400 — Kommando ausführen 

Je nachdem, welches Zeichen in D$ steht, 
wird das dazugehörige Kommando ausge- 
führt. Dies entspricht dem Bereich $FF78 
bis $FF89 beim Apple-Il-Monitor. 

Die Ausführung der Kommandos ge- 
schieht fast wie beim Apple. Die Komman- 
dos „Leerzeichen“, „RETURN“ und 
„LIST“ haben jeweils ein eigenes Uhnter- 
programm, das weiter unten erklärt wird. 
Zu den Befehlen R(ead und Wf(rite kann 
noch gesagt werden, daß die Maschinen- 
programme wie ein „B-File“ beim Apple- 
DOS abgespeichert werden, also zuerst 
die Anfangsadresse und dann die Länge 
des Bereichs, dahinter die Bytes selbst. Je 
zwei Bytes werden mit der „MKI$“-Funk- 
tion als String interpretiert und so auf die 
Datei geschrieben. 


600 - Leerzeichen-Kommando 

Dies entspricht der „BL1“-Routine beim 
Apple-II-Monitor ($FEOO). Im einzelnen 
gilt folgende Zuordnung zwischen Basic- 
Zeilennummern und Monitor-Adressen: 
610 - $FEO4 (BLANK) 

620 - $FEO7 u. $FEOB (STOR) 

630 - $FDC6 (XAMPM) 

640 - $FDD1 (ADD) 

650 - $FDD4 (Ausgabe des Ergebnisses) 
660 -— $FDAD (MODSCHK) 

670 - $FDB3 (XAM) 

680 - $FDB6 (DATAOUT) 

690 -— $FDCO (weiterzählen) 


700 - Adresse in Ali ausgeben 
Gibt die Adresse in Al mit 6 Hex-Ziffern 
aus. Dies entspricht der „PRA1“-Routine 
beim Apple-Il-Monitor ($FD92). 


800 - Byte in WRD ausgeben 

Gibt das Byte in der Variablen WRD mit 2 
Hex-Ziffern aus. Dies entspricht der 
„PRBYTE“-Routine beim Apple-Il-Monitor 
($FDDA,). 


Das gesamte nachfolgende Programm ist 
nur für die Disassemblierung der 
MC68000-Befehle zuständig. Dabei wird 
der disassemblierte Befehl in der Varia- 
blen D$ schrittweise aufgebaut. Die Länge 
des Befehls (in Worten) steht in der Varia- 
blen LNG, die Adresse des Befehls (der 
Programmzähler) in der Variablen A1. Die 
Variable G gibt die Operationsgröße an: 1 
bei Byte-, 2 bei Wort- und 4 bei Doppel- 
wort-Befehlen. 
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900 - Sprungverteiler 

Gibt den nächsten Befehl ab Adresse A1 
disassembliert aus. Der Programmteil ab 
Zeile 900 dient dabei nur als Sprungvertei- 
ler: Die ersten 4 Bits des Befehls bestim- 
men, zu welcher Adresse gesprungen 
wird. Die Variable LNG, die die Länge des 
Befehls in Worten zählt, wird auf O gesetzt, 
ebenso die Variable Z, die angibt, mit wie- 
vielen Ziffern eine Hex-Zahl mindestens 
ausgegeben werden soll. 


1000 — Nächstes Wort in WRD holen 

Holt das nächste Wort ab der Adresse A1 
(Programmzähler) in die Variable WRD. 
Dabei wird Ali um 2 weitergezählt. Die 
Variable LNG, die die Länge des augen- 
blicklichen Befehls in Worten mitzählt, wird 
erhöht. 


1100 — Nächstes Wort in O(0..5) und 
B(0..8) holen 

Holt das nächste Wort ab der Adresse AI 
(mit der Routine in Zeile 1000). Dieses 
Wort wird in Oktal- und Binärziffern aufge- 
spalten. Die Oktalziffern stehen im Array 
O, die Binärziffern im Array B (die nieder- 
wertigsten Ziffern in O(0) bzw. B(0)). Die- 
se Aufspaltung erleichtert später die Ent- 
schlüsselung der Befehlscodes. 


1200 — Operand in A mit Z Ziffern in W$ 
Diese Routine wandelt den Operanden in 
A in eine Hex-Zahl um. Die Hex-Zahl wird 
in den String W$ übernommen. Falls sie 
weniger Ziffern hat, als in der Variablen Z 
gefordert wird, werden vorne Nullen hin- 
zugefügt. Falls die Zahl mehr Ziffern hat, 
so wird sie aber nicht abgeschnitten. 


1300 — Hole G Bytes in W$ 

Ab der Adresse Al werden G Bytes gele- 
sen. Diese Bytes werden als Hex-Zahl in 
W$ zurückgegeben. Dies dient dazu, Ope- 
randen darzustellen. Operanden, die 1 
Byte lang sind (oder 3, 5, usw.), belegen 
im Speicher eine gerade Zahl von Bytes 
(Worteinteilung). Deshalb wird, falls z.B. G 
= 1 ist, nicht nur 1 Byte, sondern 2 Bytes 
geholt, von denen allerdings nur das zwei- 
te den Operanden enthält. 


1400 - Größe der Operation in G 

Bei den MC68000-Befehlen ist die Opera- 
tionsgröße (Byte, Wort oder Doppelwort) 
sehr oft in den Bits 6 und 7 bzw. in der 
Oktalziffer 2 codiert. Diese Routine be- 
stimmt nun in Abhängigkeit dieser Bits die 
Operationsgröße. Die Größe (1, 2 oder 4 
Bytes) wird in der Variablen G gespeichert. 
Die Größenbezeichnung (,„.B“, „.W“ oder 
„.L“) wird an den bisher erzeugten Be- 
fehlsstring in D$ angehängt. 
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1500 — Falscher Befehlscode 

Diese Routine wird immer dann ange- 
sprungen, wenn ein ungültiger Befehls- 
code gefunden wurde. In diesem Fall wird 
die Disassemblierung abgebrochen. In der 
Variablen D$, die den bisher disassem- 
blierten Befehl enthält, wird ein „???“ ge- 
speichert. Die Routine geht in den näch- 
sten Programmteil über: 


1600 - Zeile ausgeben 

Der disassemblierte Befehl wird ausgege- 
ben. In der Variablen A1 steht die Adresse 
des nächsten Befehls, in LNG die Länge 
des Befehls in Worten und in D$ der disas- 
semblierte Befehl. Es wird zunächst die 
Adresse des Befehls, dann der Befehl in 
Hex-Darstellung und schließlich in disas- 
semblierter Form ausgegeben. 


1700 - 
MOVEM 
Bei dem Befehl „MOVEM“ werden meh- 
rere Register auf einmal transportiert. Wel- 
che der 16 Register transportiert werden, 
steht in einem besonderen Wort nach dem 
Befehl. Die Routine wandelt dieses Wort in 
lesbare Form um. Dabei wird die soge- 
nannte „Registerliste“ wie folgt ausge- 
geben: 

<Axxx,Dxxx> bzw. <Dxxx,AxxxX>, 

wobei nach „A“ die Nummern der Adreß- 
und nach „D“ die Nummern der Datenre- 
gister stehen. Die Reihenfolge der Regi- 
ster richtet sich danach, mit welcher 
Adressierungsart die Register transportiert 
werden. Diese Registerliste wird an den 
String D$ angehängt. 


Bestimme Registerliste für 


1800 — Bedingungscode entschlüsseln. 

In Abhängigkeit der Bits 8 bis 11 wird 
bestimmt, um welche Bedingung es sich 
handelt. Die Befehle „Bcc“ und „DBcc“ 
weisen ein paar Unregelmäßigkeiten bei 
den Bedingungen mit Code $0 und $1 auf. 
Die decodierte Bedingung wird in D$ zu- 
rückgegeben. 


2000-5999 — Befehl decodieren 

Die nächsten Routinen decodieren den 
MC68000-Befehl. Dies geschieht durch 
die Überprüfung einzelner Oktal- und Bi- 
närziffern sowie mit den bisher beschrie- 
benen Unterprogrammen ab Zeile 900. 
Auf die einzelnen Befehle kann ich hier 
nicht eingehen. Wenn man die MC68000- 
Befehle in ihrer codierten Form sortiert, 
kommt man schließlich auf eine mehr oder 
weniger ähnliche Einteilung, wie sie hier in 
dem Programm vorgenommen wurde. 


Noch ein Wort zu den „nicht implemen- 
tierten” Befehlen, die in den ersten 4 Bits 
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„1010“ enthalten. Jedesmal, wenn der 
Prozessor auf solch einen Befehl trifft, wird 
ein „Trap“ (Unterbrechung) ausgelöst. 
Der Prozessor springt zu einer besonde- 
ren Routine (Adresse s.u.), die dann je 
nach dem Rest des Befehls aus einer Ta- 
belle eine Adresse im ROM holt und dort- 
hin springt. Auf diese Weise werden fast 
alle Routinen im ROM des Macintosh auf- 
gerufen. Man schiebt die Parameter auf 
den Stack, dann kommt der $Axxx-Befehl, 
und die Routine wird korrekt aufgerufen. 
Das geht zwar etwas langsamer als ein 
direkter Sprung, hat aber den Vorteil, daß 
bei einer (sicher noch öfter zu erwarten- 
den) Änderung des Monitors nicht alle 
Adressen geändert werden müssen, son- 
dern nur die Tabelle mit den Adressen. 


6000 - Bestimme EA (Effektive Adresse) 
Die vielfältigen Adressierungsarten des 
MC68000 sind fast alle sehr systematisch 
codiert. Deshalb benötigt man zur Deco- 
dierung nur diese Routine. 

Meistens (bis auf die Zieladresse im 
„MOVE“-Befehl) steht die Adresse in den 
Oktalziffern 1 (Modus) und O (Register). 
Anhand dieser beiden Werte wird die vor- 
liegende Adressierungsart entschlüsselt. 


3. MAC-TAKTFREQUENZ 


Ein kleines Maschinenprogramm soll als 
Beispiel angegeben werden, und zwar die 
Bestimmung der Taktfrequenz des Macin- 
tosh. Das Listing des Programms sieht 
man in Abb. 1. Es folgt eine kurze Erklä- 
rung der einzelnen Befehle: 


EOO —- Statusregister auf Stack retten 

E02 — S-Flag setzen, Interruptmaske auf 7 
setzen (keine Interrupts mehr zulässig) 
EO6 — O auf den Stack schreiben (Dauer 
des Tons) 

E08 — Unterprogramm im ROM zum 
Piepsen 

EOE — Zähler der äußeren Schleife (D1) 
auf $7F (128 Durchläufe) 

E12 - Zähler der inneren Schleife (DO) auf 
$FFFF (65536 Durchläufe) 

E14 — Dummy-Operation (macht nichts, 
aber benötigt Zeit) 

E16 - inneren Zähler erniedrigen und wie- 
derholen, falls Zähler nicht O war 

E1A - äußeren Zähler erniedrigen und 
wiederholen, falls Zähler nicht O war 

E1E - O0 auf den Stack schreiben (Dauer 
des Tons) 

E20 -— Unterprogramm im ROM zum 
Piepsen 

E26 - altes Statusregister vom Stack ho- 
len, Rücksprung in den Monitor 
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Es handelt sich also um zwei ineinander- 
geschachtelte FOR-NEXT-Schleifen, die 
in großer Zahl durchlaufen werden. Vor 
und nach den Schleifen wird ein Ton aus- 
gegeben, damit man die Zeit zwischen 
den Tönen stoppen kann. 

Wenn man aus dem MC68000 Benutzer- 
handbuch die Zeiten für die einzelnen Be- 
fehle heraussucht und alles zusammen- 
zählt (mit dem Unterprogramm zur Toner- 
zeugung!), so erhält man folgende Formel: 
418 + 18 & Di + 32 x D1 * DO Takte. 
Soviele Takte vergehen also vom Aus- 
schalten des ersten Tons bis zum Ein- 
schalten des zweiten Tons. Die Variablen 
DO und D1 sind die Werte, mit denen die 
Zählvariablen geladen werden. (Für die 


MACMONITOR 


1® REM Simulation des Apple-II-Monitors 

ll REM Version 1.1 

12 REM von Pit Capitain 
100 REM 

101 
192 
118 
129 
139 
149 
15® 
169 
200 
201 
202 
219 
220 
230 
309 
301 
302 
31ß 
329 
339 
349 
359 


REM 
CLEAR, 29000, 
DEFINT B-Z 
DIM 0(5), B(8) 
OPEN "SCRN:'" FOR OUTPUT AS #1 
CALL TEXTFONT (4) 
CLS : WIDTH 79 : 
REM 

REM —- Kommandozeile einlesen — 
REM 
PRINT#]l, 


1924 


BEEP 


: LINE INPUT "x"; CMD$ 
MDE=® 

REM 

REM -- Nächste Zahl bestimmen — 
REM 

A2=® : DIG=® 
D$=LEFT$(CMD$,1) 
IF D$='"#'" THEN I=MDE : 


: CMD$=MID$(CMD$,2) 
GOSUB 61® : 


I=ASC(D$) XOR 48 : IF I<1® THEN 37 
ELSE IF I<64 THEN 419 

I=I-103 : IF I<1® OR 15<I THEN 41® 

A2=A2*16+I : DIG=1 : 
GOTO 329 

REM 

REM -— Kommando ausführen — 

REM 

I=MDE : MDE=® 

IF D$=" '" THEN GOSUB 61ß : GOTO 319 
IF D$="&'" THEN A2=15+16%INT(A1/16) 

GOTO 219 


369 
379 
389 
400 
401 
402 
419 
420 
430 


449 
THEN MDE=ASC(D$) : GOTO 319 

IF D$="<'" THEN A4=A2 : GOTO 319 
IF D$="G" THEN CALL Al : GOTO 319 
IF D$<>"M" THEN 489 

WRD=PEEK(Al) : POKE A4, WRD 
A4=A4+]l : Al=Altl : 
IF D$="N'" THEN 319 
IF D$="Q'" THEN CLOSE : 
IF D$<>"V" THEN 51® 
IF PEEK(Al) = PEEK(A4) THEN 504 
GOSUB 71® : WRD=PEEK(Al) : GOSUB 819 
PRINT#1, " ("; : WRD=PEEK(A4) 
PRINT#1l, ")"; 
A4=A4+l : Al=Altl : 
IF D$<>"L" THEN 529 
IF I<>46 THEN A2=-1P 
GOSUB 91 : IF Al<=A2 THEN 512 
IF A2<® THEN A2=A2Hl : 
GOTO 31® 

IF D$<>"W'" THEN 539 

IF A2<Al THEN A2=Al 


450 
460 
470 
471 
472 


END 
599 





E=; 


REM ———- Initialisierung der Variablen -—-- 


: CALL TEXTSIZE (12) 


IF CMD$="" THEN CMD$="&#" ELSE CMD$ = CMD$ + "#" 


GOTO 219 
IF "a"<=D$ AND D$<="z'" THEN D$=CHR$(ASC(D$)-32) 


IF MDE=® THEN Al=A2 : 


: GOSUB 669 : 


IF D$="+" OR D$="-"" OR D$=" . " OR D$=" : " 


IF Al<=A2 THEN 471 ELSE 31 


: GOSUB 819 : 


IF Al<=A2 THEN 591 ELSE 319 


IF A2<ß THEN 512 


ganz genauen Leser: die Anfangswerte 
+ 1, da die DBRA-Schleifen so lange 
durchlaufen werden, bis der Zähler -1 
($FFFF) erreicht hat.) 

Mit den Werten aus Abb. 1 (DO = 655386, 
Di = 128) ergibt sich die Zahl von 
268438178 Takten. Die Zeit, die der Mac 
dafür benötigt, beträgt ca. 48,65. Daraus 
ergibt sich eine Taktfrequenz von ca. 5,5 
MHz beim Zugriff auf das RAM, also deut- 
lich weniger als 8 MHz! (Beim Ausrechnen 
dieser Zahlen leistet der eingebaute Ta- 
schenrechner des Macintosh gute 
Dienste.) 

Wer genügend Zeit und Geduld hat, kann 
den Anfangswert der äußeren Schleife in 
$E10/E11 vergrößern, um dadurch länge- 


LINE INPUT 
GOSUB 1@19 : 


LINE INPUT 


=Al : Z6: 


POKE Al+l, 
NEXT : CLOSE 
A=Al-1: 


CLOSE #1 : 
D$="SCRN: " 
D$="LPTI:" 
D$="COM1:" 
D$="CLIP:" 


BEEP : 
REM 


REM 


IF I=58 THEN 
A3=A3+1 
IF I MOD 2=® 
A=Al+A2 : IF 
Z=4 : 


A3=A2 


GOSUB 71® 
WRD=PEEK(AI) 
Al=Al+l : IF 
REM 


REM 
PRINT#]1, 
PRINT#]1, 
REM 


REM 
A=WRD : 
REM 


REM 


LNG=® : Z=9 


REM 
REM 
Al=Al+2 : 
REM 


REM 


IF Al<=A2 THEN 525 ELSE CLOSE #2 : 
IF D$<>"R'" THEN 540 

"Name : "; D$ : 
A2=CVD(INPUT$(8,#2)) : 


A2=CVD(INPUT$(8,#2)) 
WRD=CVI(INPUT$(2,#2) ) 


Z=6 : 
IF D$<>"P" THEN 599 

ON A2 GOTO 543,544,545 
: GOTO 546 

: GOTO 546 

: GOTO 546 


OPEN D$ FOR OUTPUT AS #1 
GOTO 219 


IF DIG=® THEN MDE=I 


: MDE=I 


GOSUB 1219 
IF Al>16%INT(A1l/16) THEN 689 


ı A=Al :! 
w$ "_ . 


Z=2 : 


: GOSUB 1119 : 
ON 0(4)+1 GOTO 2919,2419,2519,2619,2710,3919,4119,4219 
ON 0(4)+1 GOTO 4319,4619,4810,49190,5019,5319,5419,1519 


WRD=PEEK(Al) : 
WRD=WRDx*256+PEEK(Al+1) 
LNG=LNG+1 


re Zeiten und somit genauere Messungen 
zu erzielen. 


Zum Abschluß noch ein paar nützliche 
Adressen: 


$000400-0007FF — Tabelle mit den 1010- 
Trap-Adressen 

$000E00-000FFF -— (meistens) 
Speicherplatz (im System-Heap) 
$01A700 - Anfang des Bildschirmspei- 
chers 

$400000 - Anfang des 64K-ROMs 
$40002A - Kaltstart 

$401018 -Adresse für Decodierung der 
1010-Traps 


freier 


"Name : "; D$ 
OPEN D$ FOR OUTPUT AS #2 
PRINT#2, MKD$(Al); MKD$(A2-Al); 


PRINT#2, MKI$(WRD); 
GOTO 31® 


OPEN D$ FOR INPUT AS #2 

IF Al=ß OR DIG=® THEN Al=A2 
GOSUB 1218 : PRINT W$ "."; 

: FOR I=® TO A2 STEP 2 

: POKE Al, (WRD AND -256)\256 
WRD MOD 256 : Al=Al+2 

#2 

PRINT W$ : 


GOSUB 1219 : GOTO 319 


: GOTO 31® 


REM — Leerzeichen-Kommando —- 


: RETURN 
WRD=A2-256%*INT(A2/256) 
: RETURN 

THEN 678 ELSE IF I=45 THEN A2=-A2 
A<® THEN A=A+2132 

: PRINT#1l, "=" W$; 


: POKE A3,WRD : 


: RETURN 


: GOSUB 819 : PRINT#1, 
Al<=A2 THEN 660 ELSE RETURN 


m 1. 
’ 


REM -——- Adresse in Al ausgeben — 


Zz=6 : GOSUB 1219 : 
: RETURN 


REM -—- Byte in WRD ausgeben -- 


GOSUB 121® : PRINT#1l, W$; : RETURN 


REM — Sprungverteiler —. 


IF 0(5) THEN 939 


REM -—- Nächstes Wort in WRD holen —- 


IF WRD>127 THEN WRD=WRD-256 


: RETURN 


REM -- Nächstes Wort in 0(9..5) und B(®..8) holen -—- 
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GOSUB 1P1® 
FOR I=® TO 5 
O(I)=WRD MOD 8 : IF I>2 THEN WRD=WRD\8 : GOTO 117® 
FOR DIG=ß TO 2 
B(DIG+3*I)=WRD MOD 2 : WRD=WRD\2 
NEXT DIG 
NEXT I 
RETURN 
REM 
REM — Operand in A mit Z Ziffern in W$ — 
REM 
w$="" : IF A<® THEN A=A+2?'16 
WRD=A-256*INT(A/256) : A=INT(A/256) 
W$=HEX$ (WRD)+W$ 
IF WRD<16 AND A>® THEN W$="0"+W$ 
IF A>® THEN 1229 
IF LEN(W$)<Z THEN W$=STRING$ (Z-LEN (W$) , "0" )+W$ 
RETURN 
REM 
REM -——- Hole G Bytes in W$ —. 
REM 
A=ß : DIG=G 
GOSUB 1818 : IF DIG MOD 2=1 THEN WRD=WRD MOD 256 
DIG=DIG+1 
IF WRD<® THEN A=A+l 
A=Ax2T16+WRD : DIG=DIG-2 : IF DIG>® THEN 1329 
ELSE 1219 
REM 
REM —- Grösse der Operation in G — 
REM 
DIG=0 (2) 
ON DIG GOTO 1449, 145®, 1469 
D$=D$+".B " : G=l : RETURN 
D$=D$+" . : G=2 : RETURN 
D$=D$+H" . : G=4 : RETURN 
D$=D$+" . ? : RETURN 
REM 
REM ——- Falscher Befehlscode —. 
REM 
D$="27?7 7" 
REM 
REM — Zeile ausgeben — 
REM 
Al=Al-2#LNG : GOSUB 719 
FOR DIG=LNG TO 1 STEP -1 
GOSUB 1010 : A=WRD : Z=4 : GOSUB 1219 
PRINT#1l, W$ " "; 
NEXT 
I=INSTR(D$," ") : IF I=® THEN PRINT#l, TAB(36) D$; 
RETURN 
PRINT#l, TAB(36) LEFT$(D$,I-1) TAB(44) 
MID$(D$,I+1); : RETURN 
REM 
REM ——- Bestimme Registerliste für MOVEM —- 
REM 
DIG=® : D$=D$+"<" : IF O(1)=4 THEN 1739 
FOR I=ß TO 15 
IF WRD MOD 2=® THEN 1726 ELSE IF I<DIG THEN 1725 
IF I<8 THEN D$=D$+"D" : DIG=8 : GOTO 1725 
IF DIG>® THEN D$=D$+", " 
D$=D$+"A" : DIG=16 
D$=D$+HEX$(I MOD 8) 
WRD=WRD\ 2 
NEXT : GOTO 1749 
FOR I=® TO 15 
IF WRD MOD 2=® THEN 1736 ELSE IF I<DIG THEN 1735 
IF I<8 THEN D$=D$+"A" : DIG=8 : GOTO 1735 
IF DIG>® THEN D$=D$+", " 
D$=D$+"D" : DIG=16 
D$=D$+HEX$ (7-I MOD 8) 
WRD=WRD\ 2 
NEXT 
D$=D$+">" : RETURN 
REM 
REM -— Bedingungscode entschlüsseln — 
REM 
DIG=B(8)+2x0(3) 
ON DIG+1 GOTO 1849,1842,1844,1845,1846,1847,1848, 1849 
ON DIG-7 GOTO 1859,1851,1852,1853,1854,1855,1856,1857 
IF 0(4)=6 THEN D$="RA" ELSE D$="T" 
RETURN 
IF 0(4)=6 THEN D$="SR" ELSE IF O(1)=1 THEN D$="RA" 
ELSE D$="F'" 
RETURN 
D$="HI" : RETURN 
D$="LS" : RETURN 
D$="CC" : RETURN 
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D$="CS" : RETURN 

D$="NE" : RETURN 

D$="EQ" : RETURN 

D$="VC" : RETURN 

D$="VS" : RETURN 

D$="PL" : RETURN 

D$="MI" : RETURN 

D$="GE" : RETURN 

D$="LT" : RETURN 

D$="GT" : RETURN 

D$="LE" : RETURN 

REM 

REM ——- $ßxxx : unmittelbare Befehle — 

REM 

IF B(8)=1 THEN 2119 

ON 0(3) GOTO 2922 ,2023,2924,21190,2025,2026,151® 
D$ "ORI" : GOTO 2039 

D$ = "ANDI" : GOTO 2939 

D$ "SUBI'" : GOTO 293% 

D$ "ADDI" : GOTO 2939 

D$ = "EORI" : GOTO 2030 

D$ "CMPI" 

GOSUB 1419 

GOSUB 131® : D$=D$+H"#"+W$+"," : GOSUB 6019 : 
GOTO 1619 

REM 

REM -—- $ßxxx : Bit-Manipulation (statisch) — 
REM 

IF B(8)=1 OR 0(3)<>4 THEN 2219 

G=1 : ON 0(2) GOTO 2149,2159,216® 

D$="BTST " : GOTO 2949 

D$="BCHG " : GOTO 2949 

D$="BCLR " : GOTO 2949 

D$="BSET " : GOTO 2940 

REM 

REM -- $ßxxx : MOVEP -—- 

REM 

IF O0(1) <> 1 THEN 2319 

D$="MOVEP" : DIG=1+B(6) : GOSUB 1429 

G=2 : GOSUB 131® : ON B(7) GOTO 225% 
D$=D$HWS+" ( A" +HEX$(O(D) )+"),D"+HEX$(0(3)) : GOTO 1619 
D$=D$+"D"+HEX$ (O0 (3) )+", "+WEH" (A'+HEX$(O(D) )+")" 
GOTO 161® 

REM 

REM -- $ßxxx : Bit-Manipulation (dynamisch) — 
REM 

ON 0(2) MOD 4 GOTO 2339 ,2349 , 2359 

D$="BTST" : GOTO 2369 

D$="BCHG" : GOTO 2369 

D$="BCLR" : GOTO 2369 

D$="BSET" 

D$=D$+" D"+HEX$(0(3) )+"," : GOSUB 6ß1d : GOTO 1619 
REM 

REM ——- $1xxx : MOVE.B — 

REM 

D$="MOVE.B" : G=1 

D$=D$+" " : GOSUB 6019 : D$=D$H" ," 

MDE=0(2) : REG=0(3) : GOSUB 6920 : GOTO 1619 
REM 

REM —- $2xxx : MOVE.L — 

REM 

G=4 : IF 0(2)=1 THEN D$="MOVEA.L" ELSE D$="MOVE.L" 
GOTO 2429 

REM 

REM -- $3xxx : MOVE.W —— 

REM 

G=2 : IF 0(2)=1 THEN D$="MOVEA.W" ELSE D$="MOVE.W" 
GOTO 2429 

REM 

REM -—— $4xxx : LEA — 

REM 

IF 0(2)<7 THEN 2819 

D$="LEA " : G=4 : GOSUB 6P19 : 
D$=D$+" , A" +HEX$(0(3)) : GOTO 1619 

REM 

REM -——- $4xxx : CHK — 

REM 

IF 0(2)<6 THEN 291® 

D$="CHK" : G=2 : GOSUB 6019 : 

D$=D$+" ,„ D'+HEX$(0(3)) : GOTO 1619 

REM 

REM -—— $4xxx : NEGX, CLR, NEG, NOT — 

REM 

IF B(8)=1 THEN 151® ELSE IF 0(3)>3 THEN 311® 
ELSE IF 0(2)=3 THEN 3919 

ON 0(3) GOTO 2949,2959,296® 

D$="NEGX" : GOTO 2979 
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D$="CLR" : GOTO 2979 

D$="NEG" : GOTO 2979 

D$="NOT" 

GOSUB 141® : GOSUB 6ß1® : GOTO 161 

REM 

REM —— $4xxx : MOVE mit SR bzw. CCR — 

REM 

ON 0(3) GOTO 1519,3039 , 3049 

D$="MOVE SR," : G=2 : GOSUB 6019 : GOTO 1619 
D$="MOVE " : G=2 : GOSUB 6010 : D$=D$+H",CCR" 
GOTO 161® 

D$="MOVE " : G=2 : GOSUB 6019 : D$=D$+H",SR" 
GOTO 161® 

REM 

REM -—- $4xxx : SWAP, EXT — 

REM 

ON 0(3)-4 GOTO 3319, 3419, 3519 

IF O(1)>® OR 0(2)=® THEN 3219 

ON 0(2) GOTO 3149,3159,316® 

D$="SWAP" : GOTO 3179 

D$="EXT.W" : GOTO 3179 

D$="EXT..L" 

D$=D$+" D"+HEX$(0(B)) : GOTO 1619 

REM 

REM —- $4xxx : NBCD, PEA, MOVEM (Reg)-->(EA) — 
REM 

ON 0(2) GOTO 3239 ,3249 , 3249 

D$="NBCD " : G=1l : GOTO 3259 

D$="PEA " : G=4 : GOTO 3259 

D$="MOVEM" : DIG=1+B(6) : GOSUB 1429 

GOSUB 101® : GOSUB 1710 : D$=D$+"," 

GOSUB 6019 : GOTO 161® 

REM 

REM — $4xxx : TST, TAS — 

REM 

ON 0(2) GOTO 3329 ,3329 , 333% 

D$="TST" : GOSUB 1419 : GOTO 3259 

D$="TAS " : G=1l : GOTO 3259 

REM 

REM —— $4xxx : MOVEM (EA)-->(Reg) — 

REM 

IF B(7)=® THEN 151® ELSE GOSUB 1ß1® : I=WRD 
D$ = "MOVEM" : DIG=1+B(6) : GOSUB 1429 : GOSUB 6@1® 
D$=D$+"," : WRD=I : GOSUB 1719 : GOTO 161 
REM 

REM -—- $4xxx : JSR, JMP — 

REM 

IF B(7)=® THEN 3619 

G=4 : IF B(6) THEN D$="JMP " ELSE D$="JSR " 
GOSUB 601ß : GOTO 1619 

REM 

REM -—- $4xxx : RESET, NOP, STOP, RTE, RTS, TRAPV, 
RTR — 

REM 

IF B(6)=® OR O(1)=7 THEN 1519 ELSE IF 0(1)<6 
THEN 3719 

ON 0(9) GOTO 3622,3623,3624,1519, 3625, 3626, 3627 
D$="RESET" : GOTO 1619 

D$="NOP" : GOTO 1619 

G=2 : GOSUB 1319 : D$="STOP #"+W$ : GOTO 161® 
D$="RTE" : GOTO 1619 

D$="RTS" : GOTO 1619 

D$="TRAPV" : GOTO 1619 

D$="RTR" : GOTO 1619 

REM 

REM — $4xxx : LINK, UNLK, MOVE mit USP — 
REM 

IF O(1)<2 THEN 381 

ON O(1)-2 GOTO 3749 ,3759 ,376® 

G=2 : GOSUB 131® : D$="LINK A"+HEX$(O(P) )+",#"+W$ : 
GOTO 1619 

D$="UNLK A"+HEX$(0(®)) : GOTO 1619 

D$="MOVE A'"+HEX$(O(B))+",USP" : GOTO 161® 
D$="MOVE USP,A"+HEX$(0(®)) : GOTO 1619 

REM 

REM -—— $4Axxx : TRAP — 

REM 

A=0(®)+8%*B(3) : GOSUB 1210 : D$="TRAP #""4W$ : 
GOTO 1619 

REM 

REM -—- $5xxx : ADDQ, SUBQ — 

REM 

IF 0(2) MOD 4=3 THEN 4919 

IF B(8) THEN D$="SUBQ" ELSE D$="ADDQ" 
DIG=0(2) MOD 4 : GOSUB 1429 

DIG=0(3) : IF DIG=® THEN DIG=8 
D$=D$+"#"+HEX$(DIG)+" ," 


GOSUB 6ß1® : GOTO 161P 

REM 

REM — $5xxx : Scc, DBcc — 

REM 

GOSUB 1818 : IF O(1)<>1 THEN D$="S"+D$+" " : G=]1 : 
GOTO 396 

D$="DB"+D$+" D"+HEX$(O(B) )+"," 

GOSUB 101® : A=Al-2+WRD : GOSUB 121® : D$=D$HNS : 
GOTO 1619 

REM 

REM -—- $6xxx : Bcc — 

REM 

A=0(P)+8%x0(1)+64*(0(2) MOD A) : IF A>127 THEN A=A-256 
IF A=ß THEN GOSUB 1@1® : A=Al-2+WRD ELSE A=Al+A 
GOSUB 1219 : GOSUB 181® : D$="B"+D$+" "+W$ : 
GOTO 1619 

REM 

REM -——- $7xxx : MOVEQ —. 

REM 

IF B(8)=1 THEN 151® ELSE D$="MOVEQ #'" 
A=0(P)+8*0(1)+64*(0(2) MOD A) : GOSUB 1219 
D$=D$+W$+H" ,D"+HEX$(0(3)) : GOTO 1619 

REM 

REM ——- $8xxx : DIVx — 

REM 

IF 0(2) MOD 4<3 THEN 4419 

G=2 : IF B(8) THEN D$="DIVS " ELSE D$="DIVU " 
GOSUB 6ß1® : D$=D$+",D"+HEX$(0(3)) : GOTO 1619 
REM 

REM -——- $8xxx : SBCD —. 

REM 

IF 0(2)<>4 OR O(1)>1 THEN 451® ELSE D$="SBCD " 
IF B(3) THEN D$=D$+"-(A"+HEX$(0(9) )+"),-(A" 
+HEX$(0(3))+")" : GOTO 161 

D$=D$+"D"+HEX$(O(P) )+",D"+HEX$(0(3)) : GOTO 1619 
REM 

REM -——- $8xxx : OR — 

REM 

D$="OR" 

DIG=0(2) MOD 4 : GOSUB 1429 

IF B(8)=® THEN 4330 

D$=D$+"D"+HEX$ (0 (3) )+"," : GOSUB 601® : GOTO 1619 
REM 

REM -—- $9xxx : SUBA — 

REM 

IF 0(2) MOD 4<3 THEN 471® ELSE D$="SUBA'" 
DIG=1+B(8) : GOSUB 1429 : GOSUB 691 

D$=D$+" ,A"+HEX$(0(3)) : GOTO 161 

REM 

REM —- $9xxx : SUBX, SUB — 

REM 

IF B(8)=® OR O(1)>1 THEN D$="SUB" : GOTO 4529 
D$="SUBX" : DIG=0(2) MOD 4 : GOSUB 1429 : GOTO 4420 
REM 

REM —- $Axxx : "Linie 1®1® Emulator" -- 

REM 

Al=Al-2: LNG=LNG-1 : Z=4 : G=2 : GOSUB 1319 
D$="CALL ROM."+W$ : GOTO 1619 

REM 

REM —- $Bxxx : CMPA, CMP, EOR, CMPM — 

REM 

IF 0(2) MOD 4=3 THEN D$="CMPA" : GOTO 4629 

IF B(8)=® THEN D$="CMP" : GOSUB 141® : GOTO 433® 
IF O(1)<>1 THEN D$="EOR" : GOTO 4529 

D$="CMPM" : DIG=0(2) MOD 4 : GOSUB 1429 

D$=D$+" ( A"+HEX$(O(D) )+")+, (A"+HEX$(O (3) )+")+" 
GOTO 1619 

REM 

REM -—— $Cxxx : MULx —- 

REM 

IF 0(2) MOD 4<3 THEN 5119 

IF B(8) THEN D$="MULS '" ELSE D$="MULU " 

G=2 : GOTO 4339 

REM 

REM ——- $Cxxx : ABCD — 

REM 

IF 0(2)<>4 OR O(1)>1 THEN 521® 

D$="ABCD " : GOTO 4429 

REM 

REM —- $Cxxx : EXG, AND — 

REM 

IF 0(2)<>5 OR O(1)>1 THEN 5259 

D$="EXG " : ON B(3) GOTO 5249 
D$=D$+"D"+HEX$(0(3) )+",D"+HEX$(0(®)) : GOTO 1619 
D$=D$+H" A" +HEX$ (0 (3) )+",A"+HEX$(O(P)) : GOTO 1619 
IF 0(2)<>6 OR O(1)<>1 THEN D$="AND" : GOTO 4529 
D$="EXG D"+HEX$(0(3))+",A"+HEX$(0(B)) : GOTO 1619 
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mg LUTZ 


Der Einsteiger 
Apple lie 64 KB 
Apple Monitor Il 

Apple Disk Il 
m. Contr. 
DM 3998,— 



















Der Vielseitige 
Apple Macintosh 
128 KB 
incl. MacPaint/ 
MacWrite 
Tastatur und Maus 
DM 6776,- 


CHCHC HEHE DEE EHEN DENT 
HEHE HH DIDI DE DD DIE DIE DIE DE DIE DIE DEE Du DE MEET 
... 
“en. 
er 
. 
IE DE DE DE DE DE DE DE HE DE DE SEHEN} 
PR DE DE DE DD DE Da DE DIE DE DE DIE DE DE De 
PR DDR DIL DE DD DD DIE DE DE DE DE De 





Die Zuverlässige 
80 Zeichen/64 KRAM 
m. Pseudo-Floppy- 
Software u. ausführ- 
lichem Handbuch 
DM 298,— 










Der Schöne 
Brother HR 15 XL 
Typenraddrucker, 
15 Z/sec. 
DM 1398, 


Bei Abnahme von größeren 
Stückzahlen noch 
günstigere Preise 

möglich. 


Hamburger 
Computer 
Versand 
2 040-7928226 
Postfach 610125 
2000 Hamburg 61 
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Das 


Macintosh 
Anwenderhandbuch 


enthält: 


e Einführung e Von Mäusen und 
Menüs e Fenster e Tastatur und 
Texteingabe e Dateien e Kleine 
Helfer e Zentralprozessor und 
Peripheriebausteine eBild und Ton 
e Maus und Tastatur e Disketten, 
Drucker, Kommunikation e Text- 
verarbeitung ®e Malen mit der 
Maus e Kommunikation e Kalku- 
lation e Einblick in die Toolbox ® 
Pascal e BASIC und FORTH e 
Macintosh und IBM PC im Ver- 
gleich u.v.m. 


156 Seiten, DM 39,80 


Fordern Sie unseren Gesamtprospekt an! 
Coupon ausschneiden und einsenden an: 
McGraw-Hill Book Company GmbH 

Lademannbogen 136, 2000 Hamburg 63 


....—— LETTER >>< 


Bitte senden Sie mir den Gesamtprospekt 


Name 


Anschrift 





rrelectronic 


Elektronik - Fachliteratur - Personal-Computer 


BASF qualimetric® 
Disketten 1.Wahl 


BASF-Disketten softsektoriert in Pappkarton 
5,25"-Disketten alle ohne Aufpreis mit Verstärkungsring. 





Iy 

KV 0% 48 TPI, 1-seitig, einfache Dichte ...... 46,90 459,00 
DV... 48 TPI, 1-seitig, doppelte Dichte ....... 49,50 484,50 
2/96VY.. 96 TPI, 2-seitig, doppelte Dichte ...... 82,50 799,50 


3M Sicherheits-Disketten 
5,25"-Disketten mit Verstärkungsring; softsektoriert. 

744-0 .. 48 TPI, I1-seitig, doppelte Dichte ...... 54,00 499,00 
745-0 .. 48 TPI, 2-seitig, doppelte Dichte ...... 72,50 679,00 
747-0 .. 96 TPI, 2-seitig, doppelte Dichte ...... 89,50 855,00 


Disketten - Doubler 14.50 


Mit diesem Diskettenlocher können Sie auch die Rückseite 
Ihrer SS- o. DS-Diskette zum Abspeichern von Daten nutzen. 


9,29" - Plastikbox 9.95 
Formschöne Klappbox aus Hart-PVC für ca. 10 Disketten in 
den Farben grün, orange, schwarz, hellgrau, elfenbein oder 
anthrazit. Bitte die gewünschte Farbe angeben. Mischbar. 
Staffelpreise: 1 St. 5.95 10 St. 49.50 100 St. 459.- 


3,25" - Disketten-Kästen 
Diskettenbox ohne Schloß 24.95 


Repräsentative Disketten-Box aus deutscher Fertigung in den 
Abmessungen (T x Bx H) 306x 174x144 mm ohne Schloß mit 
topas farbenem Deckel für ca. 80 Disketten und 4 be- 
schriftbaren Stützplatten. Sehr preiswert! 


Diskettenbox 29.50 


aufklappbar 

für ca. 50 Disketten 

aus stoßfestem, antistatischem 
transparentem Acryl mit 4 beweg- 
lichen, beschriftbaren Stützplatten. 





Diskettenbox abschliestar 39.50 


für ca. 85-100 Disketten 

aus antistatischem ABS-Kunststoff, 
Deckel aus hochwertigem Acryl(rauch- 
glasfarben). Der Trog kannplatzsparend 
in den Deckel gestellt werden. 9 beweg- &— 
lichen Unterteiler mit beschriftbaren T 
Stützplatten sorgen für Übersicht. I 


Akustikkoppler s21d 289.- 


300 Baud Modem CCITT Y.21 Standard 


| 








——— U mm 7 


* Mit FTZ-Nummer * Gebühren- u. anmeldefrei 
* Anschluß an alle Computer mit Y24-Schnitt 
stelle * Vollduplexbetrieb * Answer- und 
Originate-Modus * MADE IN GERMANY * 


TELETERM .2+7e 198.- 


Telekommunikationssoftware für den Apple. 

* ohne serielles Interface * Datenübertragung 
über den Gameport * Anschlußfertig an s21d. 
Und das bietet Teleterm 2+/e: 

Kommunikation über den Bildschirm. Abspeichern empfang- 
ener Daten auf Diskette. Daten von Disk laden und senden. 
Drucken emfangener Daten. Einstellen der Kommunikations- 
parameter. Die Software für Kommunikations-Profis. 


Unser großer Hit auch für Ihren Apple //e: 
80 Zeichen/64kB-RAM 
re altat pr dukt 

incl Demo-Diskette  290.- 





Ventilator für Apple 2+/e 99.- 


Viele Zusatzkarten entwickeln zusätzliche Wärme und 
blockieren sogar noch den natürlichen Luftstrom. Der 
letstungsfähige, geräuscharme Ventilator, sorgt für die 
notwendige Belüftung. 


Ama] MASTERCLOCK 325.- 


ei incl. Demodiskette 


1] RS 1- 
ae a Universelle Uhrenkarte 
FL Mala I für Anpie //e und //*. 


Läuft unter DOS, ProDOS und PASCAL. 


Z-80 Karte (ohne Sofware) 149.- 
ITOH/EPSON-Grafikkarte mkaveı 230 .- 
Serielle Karte f. Imagewriter 235.- 
RS-232-C-Karte (Seriell) 175.- 
Disk-Controller (0.Software) 175.- 
ERPHI-Controller AFDC-2 287 .- 


Fremdlaufwerke mit höherer Kapazität; sowie 
komplette Lösungen für Apple //e auf Anfrage. 


Apple//e, //c + Macintosh 
Vorführ- und Messegeräte 
preisgünstig abzugeben. 


Ladenverkauf, Vorführung und fachgerechte Beratung 
rr electronic 


Elektronik - Fachliteratur - Persenei-Computer 
6900 Heidelberg 1 Breslauerstr. 29 Tel.06221/781500 
Geschäftszeiten: Mo. - Fr. 9-13 +14 - 18 Sa. 9 -13 Uhr 
Versandanschrift: 6900 Heidelberg 1 Dammweg 2 
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Apple DOS 3.3 

von Ulrich Stiehl 

2. Aufl. 1984, 203 S., kart., 
DM 28,- 


Dies ist die erste deutschspra- 
chige Darstellung des Disket- 
tenbetriebssystems DOS 3.3 
für den Apple II/II Plus/lie, die 
sich sowohl an Applesoft- als 
auch an Assembler-Program- 
mierer wendet. Sinngemäß ist 
das Buch zweigeteilt: 

Der erste Teil behandelt aus- 
führlich die dem Applesoft-Pro- 
grammierer zur Verfügung ste- 
henden DOS-Befehle, wobei 
die Textfiles wegen ihrer gro- 
Ben Bedeutung und der ver- 
gleichsweise komplizierten 
Handhabung besonders darge- 
stellt werden. Viele Textfile- 
Tricks werden hier zum ersten- 
mal geschildert. 

Aber auch im zweiten Teil fin- 
det der reine Applesoft-Pro- 
grammierer insbesondere in 
dem Kapitel „Vermischte Tips, 
Tricks und Patches“ zahlreiche 
Anregungen. Im übrigen ist der 
zweite Teil für Assembler-Pro- 
grammierer gedacht. Neben ei- 
ner detaillierten Beschreibung 
der DOS-Interna enthält dieser 
Teil elf vollständige RWTS-An- 
wenderprogramme - z.B. 
CPM-Refiner, DOS-lose Da- 
tendisk, TSL-Maker, File- 
Reader, Pseudo-Disk-Driver 
und Fastbrun-Routine -, die 
Techniken enthüllen, die bis- 
lang noch niemals publiziert 
worden sind. Dieses DOS- 
Buch ist deshalb der unent- 
behrliche Begleiter für jeden 
Apple-Programmierer. 


Apple Il 

Basic Handbuch 
von Douglas Hergert 
304 Seiten, 116 Abb. 
DM 32,— 


Das Buch ist als Nachschlage- 
werk konzipiert, daß seinen 
Platz neben jedem APPLE Il, 
II+ und Ile haben sollte. Es 
richtet sich an Anfänger und 
fortgeschrittene Program- 
mierer. 


Aus der Praxis heraus präsen- 
tiert der Autor Tips und Vor- 
schläge, die das Programmie- 
ren leichter und zugleich effi- 
zienter machen. Alle Applesoft- 
und Integer-BASIC-Begriffe 
sind alphabetisch aufgelistet 
und werden eingehend erklärt. 
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Dazu werden alle DOS-Befehle 
(neben vielen Begriffen der 
Computerterminologie) vorge- 
stellt. 

Beispielprogramme zeigen 
dem Nutzer, wie jeder Befehl 
funktioniert und helfen, die rich- 
tige Anwendung zu üben. Un- 
ter anderem lernt der Leser 
den besten Weg, um FOR/ 
NEXT-Schleifen und IF/THEN- 
Entscheidungen für seine 
Zwecke einzusetzen. 

Durch die präzise und leicht 
verständliche Sprache des Au- 
tors werden auch schwierige 
Befehle einfach in der Anwen- 
dung. 


Apple Maschinen- 
sprache 

von Don und Kurt Inman 
1984, 208 S., zahlr. Abb. und 
Tabellen, DM 49,- 


SS ARRE © 
MASCHINEN 
SPRACHE 


DON INMAN - KURT INMAN 





Dieses Buch ist wahrscheinlich 
die beste Einführung in die 
6502-Programmierung für den- 
jenigen Assembler-Anfänger, 
der zuvor noch nie ein Maschi- 
nenprogramm geschrieben 

hat. 

Aus dem Inhalt: 

Applesoft II BASIC - kurzge- 
faßt — Alles über Zeichen - Al- 
les über Speicher - Alles über 
Maschinenbefehle — Maschi- 
nenprogramme mit BASIC ein- 
geben - Graphik — Text— Ton 
Arithmetik — Was tun mit den 
Maschinenprogrammen 


Apple Il 

leicht gemacht 

von Joseph Kascmer 

1984, 185 S., zahlr. Abb., kart., 
DM 28,- 


Dies ist ein Buch, wie es sich 
jeder Apple-Anfänger nur wün- 
schen kann: Schrittweise, 
leichtverständliche Anleitung 
zum Umgang mit dem Apple 
mit einigen durchsichtigen, un- 
komplizierten Beispielen in Ap- 
plesoft, die ihn nicht Abschrek- 
ken, sondern ermutigen sollen, 
sich mit dem Gerät näher ver- 
traut zu machen. Damit ist „Ap- 
ple Il leicht gemacht“ das idea- 
le Einsteigerbuch für den rei- 
nen Anwender, der nicht nur 
„auf den Knopf drücken“, son- 
dern zumindest einige Details 
aus der Black Box namens Ap- 
ple erfahren will. 





Aus dem Inhalt: 

Kontrolle des Geräts — Schrei- 
ben und Zeichnen auf dem 
Bildschirm - Geheimnisvolle 
Abläufe: Programme - Ver- 
schiedene Eingriffsmöglichkei- 
ten — Mobile Speicher: Disket- 
ten - Kontrollmöglichkeiten — 
Das Innenleben 


Apple Assembler 
Tips und Tricks 


von Ulrich Stiehl 
1984, 226 S., 3 Abb., kart., 
DM 34,— 


„Apple Assembler“ wendet 
sich an alle, die bereits Anfän- 
gerkenntnisse der 6502-Pro- 
grammierung haben - z.B. 
aufgrund des Buches „Apple 
Maschinensprache“ — und nun- 
mehr ein Nachschlagewerk für 
ihren Apple Il Plus/lle/lic su- 
chen, in dem alle wichtigen 
ROM-Routinen sowie eine 
Vielzahl sonstiger Hilfspro- 
gramme in einer systemati- 
schen Form zusammengestellt 
werden. Insgesamt umfaßt die- 
ses Buch über 40 Utilities, dar- 
unter mehrere völlig neuartige 
Programme wie Double-Lores, 
Double Hires, Screen-Format 
u.a. 

Der erste Teil enthält ein Repe- 
titorium der wichtigsten Befeh- 
le, Adressierungsarten und 
sonstigen Besonderheiten des 
6502. 

Im zweiten Teil werden alle 
Adressen des Monitors zusam- 
mengestellt, die für Assembler- 
Programmierer von Nutzen 
sein können. Darüber hinaus 
findet der Leser Unterroutinen 
für hexadezimale Addition/ 
Subtraktion/Multiplikation/Divi- 
sion, Binär-Hex-ASCIl-Um- 
wandlung usw. 

Der dritte Teil befaßt sich mit 
der Speicherverwaltung der 
Language Card und der Ile- 
64K-Karte und enthält Move- 
Programme zum Verschieben 
von Daten in die und aus der 
Language Card sowie der 64K- 
Karte. 


Der vierte Teil ist dem Ap- 
plesoft-ROM gewidmet und li- 
stet eine große Anzahl nützli- 
cher Interpreter-Adressen. Bei 
den Utility-Programmen liegt 
das Schwergewicht auf Fließ- 
kommamathematik einschließ- 
lich Print Using. 

Der letzte Teil behandelt den 
Text- und Graphikspeicher. 
Neben einem professionellen 
Maskengeneratorprogramm 
werden auch Routinen zur 
Double-Lores- und Double-Hi- 
res-Grafik vorgestellt. 


Arbeiten mit dem 
Macintosh 

von N. Hesselmann 

416 Seiten, 320 Abb. DM 54,— 


Das Buch erklärt den Umgang 
mit dem Macintosh von Grund 
auf, wobei auch auf elementare 
Dinge eingegangen wird, wie 

z. B. die Benutzung der Tasta- 
tur und der Maus, das Einlegen 
von Disketten und den System- 
start. Ganz besonderes Augen- 
merk wird auf die Erklärung der 
speziellen Software-Umge- 
bung des Macintosh gelegt, 
wobei das Menü- und Fenster- 
konzept sowie das Anwählen 
durch Piktogramme gekenn- 
zeichneter Funktionen klar dar- 
gestellt wird. 


Arbeiten mit dem 
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Der Umgang mit den Program- 
men MacPaint und MacWrite 
wird erläutert; dies geschieht 
teilweise anhand von Beispie- 
len, die leicht nachvollzogen 
werden können. Ein umfangrei- 
ches Kapitel ist dem für den 
Macintosh erhältlichen Micro- 
soft-BASIC gewidmet. 


BASIC Ubungen 

für den Apple 

von J. P. Lamoitier 

1983, 252 S., zahlr. Abb., kart., 
DM 38,— 


Das Buch ist konzipiert, allen 
Apple-Anwendern Applesoft- 
BASIC durch praktische Ubun- 
gen an Hand von reellen Pro- 
grammen beizubringen. Daten- 


\ 
N 





verarbeitung, Statistik, kom- 
merzielle Programme, Spiele 
und vieles mehr. Jede Übung 
beinhaltet eine Beschreibung 
der Problemstellung, eine Ana- 
Iyse der Lösungsmöglichkei- 
ten, ein Flußdiagramm und ein 
fertiges Programm samt Pro- 
belauf. 





Aus dem Inhalt: 

Ihr erstes BASIC-Programm — 
Flußdiagramme — Übungen mit 
Integerzahlen — Elementare 
Beispiele aus der Geometrie — 
Allgemeine Ubungen aus der 
Datenverarbeitung — Mathema- 
tische Berechnungen — Kauf- 
männische Berechnungen — 
Spiele - Operations Research 
— Statistik 


Apple ProDOS 
für Aufsteiger 
Band 1 


von Ulrich Stiehl 
1984, 202 S., kart., DM 28,- 


ProDOS ist das neue „profes- 
sionelle DOS“ (Professional 
Disk Operating System) für den 
Apple Ile sowie den mit einer 
Language Card ausgestatteten 
Apple II Plus. Band 1 befaßt 
sich mit den theoretischen 
Grundlagen von ProDOS, der 
internen und externen Spei- 
cherorganisation und enthält 
grundlegende Beispielpro- 
gramme für Assembler-Pro- 
grammierer sowie generelle 
Untersuchungen zum BASIC- 
SYSTEM. Da ProDOS über er- 
heblich vielfältigere und lei- 
stungsfähigere, zugleich je- 
doch erheblich kompliziertere 
Dateistrukturen verfügt, sind 
theoretische Kenntnisse von 
ProDOS unabdingbar, wenn 
man die Features von ProDOS 
voll ausschöpfen will. 

Aus dem Inhalt: 

Ein erster Überblick -— ProDOS 
und DOS 3.3 — Interne Spei- 
cherorganisation — Externe 
Speicherorganisation — MLI 
(Machine Language Interface) 
— ProDOS für Applesoft-Pro- 
grammierer 


Beachten Sie die Buch-Shop-Karte 
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Betriebssystem CP/M 
Vom Monitorprogramm zum 
Mehrbenutzersystem. 

Von Jürgen Plate. 

1984, 351 Seiten, 30 Abb., 

3 Tab., geb., DM 56,- 





Franzis’ 


Das Buch beschreibt ausführ- 
lich die Kommandos, ihre 
genaue Syntax und die einzel- 
nen Teilprogramme von CP/M 
wie BIOS (systemspezifischer 
Teil), ED (Editor), ASM (Asem- 
bler, inklusive einer Beschrei- 
bung des 8080-Befehlssat- 
zes), SYSGEN und STAT. 

Der Beschreibung von CP/M 
ist das Listing eines komfor- 
tablen Monitorprogramms für 
Z-80-Computer vorangestellt, 
das eine elementare Program- 
mierung auf Maschinenebene 
erlaubt, solange man CP/M 
noch nicht geladen hat. Das 
kann z. B. zur Fehlersuche 
sehr nützlich sein. Am Schluß 
des Buches findet sich auch 
eine Kurzbeschreibung der 
Multitasking-/Multiuser- 
Betriebssysteme. 


Das Buch zum Apple Il 
von Erich Esders 

1985, 210 S., 119 Abb., geb, 
DM 54,— 





Wenn hier vom Apple Il 
gesprochen wird, so gilt das 
auch für den Ilplus, den lleuro- 
plus und die lle-Versionen 
sowie für den ganzen „Apple- 
Nachbau“. Das Buch ist ein 
Wegweiser durch diesen 
Rechner, um mit ihm schneller 
und effektiver zu arbeiten. Es 
geht hier weniger um das ele- 
mentare Programmieren des 


Peeker 5/85 












Rechners, sondern um 
Assemblerprogramme, die 
extensiv Monitor-ROM- 
Subroutinen benutzen. Diese 
hat der Autor nach Sach- 
gebieten geordnet, z. B. 
Mathematik, Graphik, String- 
Bearbeitung + Disassembler- 
Listings und diese wiederum 
mit Erklärungen und Applika- 
tionen komplettiert. Eine aus- 
reichende Dokumentation ist 
dabei immer gewährleistet. Sie 
geht schrittweise vor, von der 
Aufgabenstellung über die 
Programmentwicklung bis zum 
lauffähigen Maschinenpro- 
gramm. Die angebotenen Bei- 
spiele sind ausbaufähig und 
lassen der eigenen Kreativität 
reichlichen Spielraum. Viele 
neuartige Tips und Tricks wird 
auch der beschlagene Apple- 
Benutzer begrüßen. 

Aus dem Inhalt: 

Der Mikroprozessor des 
APPLE Il. Der APPLE Il und 
seine Speicheraufteilung. 
APPLESOFT und seine 
Arbeitsspeicher-Bereiche. Der 
MICROSOFT-Basic-Inter- 
preter: Die Zeichen-Lese- 
Routine. Interpretierer und 
Lokalisierer. Handler-Routi- 
nen. BASIC/Maschinen- 
sprache-Interfaces. 
DISAS-Generator. Unterpro- 
gramme im APPLESOFT- 
Basic-Interpreter: Softschalter 
und -Flags. Ausdrucks-Inter- 
pretierer. Low-Resolution- 
Graphik. Fehler-Behandlung. 
Applikationen: Arithmetik- 
Demonstration „FP-CALC“. 
Hex-Dumps der Applikationen. 
BASIC-Monitor BASMON/D: 
Vorstellung der neuen Kom- 
mandos. Das Programm 
„BASMON/D“. Implementie- 
rung und Laufbeispiele. 
BASIC-Interpreter-Vergleich 
APPLE II - Commodore 64: 
Arithmetik-Demonstration 
„FP-CALC/64“. Listen: Die 
Token des APPLESOFT-Basic. 


Apple II ROM Listing 
von Matthias Buck 
1984, 116 S., Kart., DM 59,- 
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Listing 


für Applersoft-BASIC- 
Interpreter 





FRE 
MIKROCOMPUTER 


Das deutsche Apple-II-ROM- 
Listing ist da! 

Einleitung zum prinzipiellen 
Ablauf des Applesoftinter- 
preters: 

® Aufbau und Verarbeitung 


der/des Programmtextes - 
Variablentabelle - String- 
space - Fließkommaformate 
- Basicstacks (GDSUB, 
FOR-NEXT, ...) 

® Beschreibung der wichtig- 
sten Unterprogramme, z.B. 
Variablensuche, Garbage 
collection, Ausdrucksaus- 
wertung, CHRGET, ... 

® Vollständig disassemblierte 
und sehr ausführlich 
deutsch kommentierte Auf- 
listung des Applesoft- 
BASIC-Interpreters 

® Übersichtliche Auflistung 
aller vom Interpreter benutz- 
ten RAM-Zeilen mit allen 
Verwendungszwecken 

® Über 150 ausführlich doku- 
mentierte Unterprogramme: 
- Funktion 
- Ein/Ausgabeparameter 

Auch für Apple-lle und c und 

Kompatible! 


Apple Ill Pascal 

Eine praktische Anleitung 
von Arthur Luehrmann und 
Herbert Peckham 

1982, 544 S., kart., DM 59,- 


ANLEITUNG 


Dieses Buch ist unentbehrlich 
für alle, die die Programmier- 
sprache PASCAL lernen 
wollen und Zugang zu einem 
Apple Computer haben. 

Sie benötigen keinerlei Vor- 
kenntnisse, sondern lernen an 
Hand von Beispielen und 
Ubungen, wie man selbst 
PASCAL-Programme entwik- 
kelt und sie austestet und 
werden allmählich von Kapitel 
zu Kapitel vertrauter im 
Umgang mit dem Apple 
Computer. 


Start mit Apple-Logo 
für II, Ile und Ilc 

Das kleine Logo-Einmaleins: 
Grafik *« Text « Musik 

VonD. Senftleben 

1985, 222 Seiten, DM 35,- 


Viele Mikrocomputer-Her- 
steller bieten für ihre Geräte 
neben BASIC und anderen 
Programmiersprachen 
zunehmend auch Logo an. 
Durch ihre Benutzerfreund- 
lichkeit hat diese Sprache 
bereits viele Freunde im 
Ausbildungs- und Freizeitbe- 








Deirich Sentieben. 
Start mit 
Apple-Logo für 
Apple Il, Ile und Ic 


Jas kleine Logo-Finmalkeins 








WISSEN 


reich gefunden. Dabei ist 
Logo eine mächtige 
Sprache, die auch dem 
anspruchsvollen Anwender 
kaum Wünsche offenläßt. 
Mittels Schildkrötengrafik 
wird das kleine Logo-Einmal- 
eins in 12 Lektionen entwik- 
kelt. Große Bildschirmfotos 
begleiten den Leser durch 
die Lektionen. Das Buch ver- 
langt aktive Mitarbeit. Es hat 
seinen Platz neben dem 
Computer und gibt Hilfen 
und Anregungen für eigenes 
Forschen. Dank des bau- 
steinorientierten Konzepts 
kann jeder seine eigenen 
Teilbausteine erzeugen und 
sie zu neuen Blöcken 
zusammenfügen. Neben 
dem Einmaleins werden 
neue Einsatzbereiche für 
den Einsteiger erschlossen. 
Musik und Sound fehlen 
nicht. 

In diesem Buch werden die 
beiden offiziellen Logo-Pro- 
dukte der Firma Apple für die 
Rechnerfamilie Apple Il, Ile 
und IIc behandelt und deren 
Unterschiede verdeutlicht. 
Weiterhin sind sämtliche 
Apple-Logo-Vokabeln über- 
sichtlich zusammengestellt. 
Dieses Buch ist ideal zum 
problemlosen und vergnüg- 
lichen Start in die Apple- 
Logo-Welt. 


Apple Il 
Anwenderhandbuch 


von Lon Poole 
1982, 450 S., zahlr. Abb., 
kart., DM 56,- 























Auch für diesen Computer 
haben wir den richtigen Leit- 
faden. Er erspart Ihnen zeit- 
raubendes und nutzloses 
Suchen nach der wirklich 
verwendbaren Dokumenta- 
tion für Ihren Computer. Das 
Anwenderhandbuch 
beschreibt zum einen den 
beliebten Apple Il-Computer 
als solchen und gibt zum 
anderen ausführlich Aus- 
kunft über die normalen 
Peripheriebausteine und 
Zubehör einschließlich Disk- 
Laufwerken und Drucker. Mit 
Hilfe dieses Buches werden 
Sie Ihren Apple Il erfolgreich 
einsetzen, denn der Informa- 
tionsgehalt geht weit über 
das hinaus, was hersteller- 
seitig an Literatur angeboten 
wird. Sie lernen BASIC auf 
zwei verschiedene Arten zu 
verwenden. Wie man den 
Gebrauch von Klang, Farbe 
und Grafik zum Optimum 
führt. Sie erhalten Tips für 
fortgeschrittene Programm- 
erstellung. Sie erfahren die 
Verwendung des Maschi- 
nensprachen-Monitors 
u.v.m. Mit dem Apple Il- 
Anwenderhandbuch werden 
Ihnen alle Möglichkeiten 
eröffnet, die in diesem Com- 
puter stecken. 


Apple Il Pascal 
Sprache 


1985, 197 S., DM 39,- 





Apple Il Pascal 
Betriebssystem 


1985, 256 S., DM 49,- 
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5390 REM 

5301 REM — $Dxxx : ADDA, ADD, ADDX —— 

5392 REM 

5318 IF 0(2) MOD 4=3 THEN D$="ADDA" : GOTO 4629 

5328 IF B(8)=® OR O(1)>1 THEN D$="ADD" : GOTO 4529 
5330 D$="ADDX" : DIG=0(2) MOD 4 : GOSUB 1419 : GOTO 4429 
540® REM 

54@1 REM — $Exxx : Speicher-Verschiebe-Befehle — 

5492 REM 

5418 IF 0(2) MOD 4<3 THEN 551® ELSE IF 0(3)>3 THEN 1519 
5420 ON 0(3) GOTO 5422,5423 ,5424 

5421 D$="AS" : GOTO 5439 

5422 D$="LS" : GOTO 5439 

5423 D$="ROX" : GOTO 5439 

5424 D$="RO" 

5430 IF B(8) THEN D$=D$+H"L " ELSE D$=D$H"R " 

5449 G=2 : GOSUB 6ß1ß : GOTO 1619 

5509 REM 

5561 REM — $Exxx : Register-Verschiebe-Befehle — 


“'5592 REM 


551® ON O(1) MOD 4 GOTO 5512,5513,5514 

5511 D$="AS" : GOTO 5529 

5512 D$="LS" : GOTO 5529 

5513 D$="R0OX" : GOTO 5529 

5514 D$="RO" 

5528 IF B(8) THEN D$=D$+"L" ELSE D$=D$H"R" 

5530 DIG=0(2) MOD 4 : GOSUB 142 : ON B(5) GOTO 5569 
5549 DIG=0(3) : IF DIG=® THEN DIG=8 

5550 D$=D$+H"#"+HEX$(DIG)+",D"+HEX$(0(®)) : GOTO 161® 
5560 D$=D$H"D"+HEX$(0(3) )+",D"+HEX$(0(B)) : GOTO 1619 
6000 REM 

6001 REM — Bestimme EA (Effektive Adresse) — 

6062 REM 

6d1® MDE=0(1) : REG=0(9) 

6028 ON MDE GOTO 6949 ,6050 ,606ß,6070,6080 610,62 


INPUT für alle Fälle 


Tastatur -— DOS — ProDOS 


von Harald Grumser 


INALL.DATA 


18 FOR I = 768 TO 793: READ A: POKE I,A: NEXT 

20 DATA 32,6,227,32,199,222,32,227,223,32,198, 
221,133,133,132,134,32,44,213,290,32,233, 
227,76,154,218 

3® CALL 768, A$ : REMBeispiel | 


(Dieses im letzten Peeker bereits abgedruckte Programm 
enthielt 2 Tippfehler [277 statt 227]. Deshalb durcken wir 
es erneut ab.) 


6030 D$=D$H"D"+HEX$(REG) : RETURN 

60AB D$=D$H"A"+HEX$(REG) : RETURN 

6050 D$=D$H" (A"+HEX$(REG)+")" : RETURN 

606 DI=D$+H" ( A"+HEX$(REG)+")+" : RETURN 

6070 D$=D$+"-(A"+HEX$(REG)+")" : RETURN 

6BBB G=2 : GOSUB 1319 : D$=D$+W$ : GOTO 6050 

61ßB G=2 : Z=A : GOSUB 1319 : DIG=ASC(MID$(W$,2,1))-48 

611ß IF DIG MOD 8>® THEN 63ß® ELSE DIG=1+DIG\8 

6128 IF MID$(W$,3,1)<>"ß" THEN D$=D$4HMID$(W$,3,1) 

6130 D$=D$HRIGHT$ (WE, 1)+" (" 

6149 IF REG>7 THEN D$=D$+"PC" ELSE D$=D$+"A"+HEX$ (REG) 

615® REG=ASC(LEFT$(W$,1))-48 : IF REG>9 THEN REG=REG-7 

616 IF REG<8 THEN D$=D$+",D" ELSE D$=D$+" , A" 

6170 D$=D$+HEX$(REG MOD 8) : GOSUB 1429 : 
MID$(D$,LEN(D$))=")" : RETURN 

620 ON REG GOTO 6219,6229,6239, 6249 ‚6309 , 6309 ‚6300 

621® IF REG THEN G=4 ELSE G=2 

6211 GOSUB 131® : D$=D$+W$ : RETURN 

6220 GOSUB 1ß1® : A=Al-2+4WRD : GOSUB 1219 : D$=D$IHWS : 
RETURN 

6230 REG=8 : GOTO 619® 

624B IF 0(5)+0(4)+B(8)>® OR 0(3)>1 AND 0(3)<>5 THEN 627 

6250 IF G>2 THEN 63ß® ELSE IF G=1 THEN D$=D$+"CCR" 
ELSE D$=D$+"SR" 

6269 RETURN 

6270 GOSUB 131® : D$=D$+H"#"+W$ : RETURN 

6300 D$=D$+H"?EA?" : RETURN 


Hinweis: Der MACMONITOR befindet sich nicht auf 
den üblichen 5,25-Zoll-Peeker-Sammeldisketten. 
Sie können ihn jedoch für DM 3®,- als 3,5-Sony- 
Macintosh-Diskette bestellen. Beachten Sie aber, 
daß diese Diskette nur das Programm und nicht 
zusätzlich das Microsoft-Basic enthält. = 





Wer kennt nicht die häßliche „?EXTRA 
IGNORED“-Meldung des Applesoft-Inter- 
preters nach Eingabe von Kommas oder 
Doppelpunkten beim INPUT-Befehl. Was 
im interaktiven Programm die schönsten 
Bildschirmmasken zerstört und beim un- 
bedarften Anwender den Glauben an die 
gute deutsche Software ins Wanken 
bringt, wird beim Einlesen von Textdatei- 
en, die diese Zeichen enthalten (welcher 
Text beinhaltet kein Komma?) zum Pro- 
grammierspektakel. 

Eine Lösung stellt die hier vorgestellte 
INALL-Routine dar, die sowohl die Einga- 
be von Kommas und Doppelpunkten un- 


INALL r aan amasne m Tralerdr terstützt als auch Hochkommas im Einga- 
Ti En bestring erlaubt. Sie simuliert den INPUT- 
3 ORG $399 Befehl und kann aus jedem Applesoft-Pro- 
h . gramm, sowohl unter DOS als auch unter 
6 _FORPNT EQU $85 ProDOS, aufgerufen werden. Der Aufruf 
7 INLIN EQU $D52C “ . 
u Se. m Sal erfolgt durch „CALL 768,A$”, wobei an 
9  CHKSTR EQU $DDec Stelle von A$ jede Stringvariable (keine 
= = = -—_. numerische Variable) benannt werden 
12 _ERRDIR u $ESBE kann (max. Länge 239 Zeichen). Da auf 
13 STRLITl EQU $E3E9Y die Benutzung des Ampersand-Vektors 
14 . e j e 
0300: 20 06 Es 15 3sB ERRDIR Atrue verzichtet wurde, kann die Routine mit 
#303: 26 BE DE 16 JSR CHKCOM ;Komma? dem INALL.DATA-Programm zu jeder Zeit 
0306: 28 ES DF 17 JSR PTRGET ‚Var. suchen . . . 
Mar: 2b 0 Mr 16 u ee Stringf in den Speicher gepokt oder direkt durch 
B30C: 85 85 19 STA FORPNT ‚Zeiger „BLOAD INALL“ geladen werden, nach- 
B3QBE: 84 86 20 STY FORPNT+l’ ; eintragen dem sie mit „BSAVE INALL,A$300,1L26“ 
1: 28 2C D5 21 JSR INLIN ‚Zeile hol a x 
ee u BIEP > See gesichert wurde. Das Maschinenpro- 
0314: 28 E9 ES 23 JSR STRLIT1  ;Descriptor gramm ist verschiebbar und läuft somit in 
PER I IR jedem Speicherbereich, wobei 768 dann P 
26 Bytes natürlich entsprechend zu ändern ist. = 
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ProDOS 


von Ulrich Stiehl 


Im Gegensatz zu DOS 3.3 sind ProDOS- 
Datenträger blockmäßig organisiert, wobei 
1 Block = 2 Sektoren = 2 mal 256 Bytes 
= 512 Bytes entspricht. Wenn man auf der 
Ebene des sog. MLI = Machine Language 
Interface programmieren möchte, ist es 
nützlich zu wissen, in welcher Form das in 
der Language Card befindliche PRODOS 
auf externe Datenträger (Disketten, RAM- 
Disks, Festplattenlaufwerke) zugreift. 
Hierzu dient das Analyseprogramm 
Block-Tracer, das in zwei Versionen ge- 
schrieben wurde: Die DISK-Il-Version ist 
für die normalen Apple-Laufwerke und die 
RAM-Disk-Version für die 64K-Karte des 
Apple Ile/lic gedacht. Die letztere Version 
ist ungefährlicher, zumal der RAM-Disk- 
Inhalt unter ProDOS ohnehin nur für un- 
wichtige Dateien benutzt werden sollte, 
denn der Inhalt wird durch jedes Neuboo- 
ten automatisch gelöscht. 


Warnung: 
Dieses Programm läuft nur unter ProDOS 
Version 1.0.1! 
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Nach BRUN BLOCKTRACER wird bei je- 
dem Diskettenzugriff der jeweilige Block in 
folgender Form angezeigt (Beispiele): 


RO020 = Read = Lesen des Blocks $0020 


WO100 = Write = Schreiben des Blocks 
50100 

SOOFF = Seek = Suchen des Blocks 
$OOFF 

F0000 = Format = Formatieren des 
Blocks $0000 


Mit Hilfe des Block-Tracers macht man 
einige interessante Entdeckungen. Bei- 
spielsweise kommt der Format-Befehl nie- 
mals vor, selbst dann nicht, wenn man von 
der Format-Option des FILER-Programms 
Gebrauch macht. (FILER und CONVERT 
können übrigens problemlos in Verbin- 
dung mit dem Block-Tracer benutzt wer- 
den, da der Bereich ab $0300 nicht über- 
schrieben wird.) Ferner stellt man fest, daß 
der Seek-Befehl auch bei RAM-Disks be- 
nutzt wird, obgleich er eigentlich für das 
Positionieren des Lesekopfes gedacht ist 
und deshalb bei RAM-Disks sinnleer ist. 
Übrigens wird Seek sehr häufig auf Block 
$0000 angewandt, was bei DISK-II-Lauf- 
werken zu den bekannten scharrenden 
Geräuschen führt. 


Zu Testzwecken formatieren wir eine 
Leerdiskette, starten den Block-Tracer 


BLOCKTRACER 
ORG $300 


* 

* Block-Tracer von ProDOS für 
* DISK-II-Driver von U.Stiehl 
* August 1984 

* 
PRINT 
HEXOUT 
DISKII 
* 

* ALT: 
* 

* $F800: A5 46 LDA $46 
* A6 47 LDX $47 


EQU $FDED 
EQU $FDDA 
EQU $F800 





PRodos 94 


und führen anschließend folgende Disket- 
tenoperationen durch: 


BSAVE XXX, A$1000, L$200 
(Erstspeicherung) 


R0002 R0002 S0000 R0006 W0007 
R0O002 WO0002 W0006 R0002 R0002 
R0007 S0000 S0000 W0007 R0002 
R0O002 W0002 R0002 R0002 W0002 


BSAVE XXX, A$1000, L$200 
(Zweitspeicherung) 


RO002 R0002 R0007 S0000 S0000 
W0007 R0002 R0002 W0002 R0002 
RO002 W0002 


"BSAVE XXX 


(Drittspeicherung ohne Parameter) 


RO002 R0002 R0007 S0000 W0007 
RO002 R0002 W0002 R0002 R0002 
W0002 


BLOAD XXX 
(Ladevorgang) 


RO002 R0002 R0007 


Wie ersichtlich, ist das erneute Speichern 
einer Datei erheblich weniger blockinten- 
siv als der allererste BSAVE. Bei BLOAD/ 
LOAD wird der Seek-Befehl offenbar nie- 
mals benutzt. Dies würde erklären, warum 
sich PRODOS-Disketten manchmal selbst 
nicht lesen können, z.B. wenn zuvor mit 
geschützten DOS-3.3.-Disketten gearbei- 
tet wurde. 


Den Block-Tracer kann man mit -PRO- 
DOS abstellen. Durch -FILER, -CON- 
VERT, -BASIC.SYSTEM usw. wird er nicht 
zerstört, wohl aber, wenn ein anderes Ma- 
schinenprogramm in den Speicherbereich 
ab $0300 geladen wird. 


NEU: 
$F800: JMP VEKTOR 


Block-Tracer-Vektor 
initialisieren 


LDA $C08B ;READBK1 
LDA $C08B ;WRITEBK1 
LDA #$4C ;JMP 

STA DISKII 

LDA #<VEKTOR 

STA DISKII+1 

LDA #>VEKTOR 

STA DISKII+2 

LDA $c081 

LDA $Co8l 
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: D3 D2 D7 100 
C6 


BLOCKTRACERI1 


oo oı9 ou humdHe 


RTS 
* 
* Sprung vom DISK-II-Driver 
* an diese Stelle 
* 
VEKTOR STY YSAVE 
PHP 
PLA 
STA PSAVE 


LDX #$00 
LDA $0040,X 
STA RETTE3,X 
INX 
CPX +#$10 
BNE RETTEL 
* 
#* Block-Nr. $HHLL anzeigen 
%* 
LDA $C081 ;RDROM 
LDA $c081 ;WRBKl 
LDX #$02 ; COMMAND 
LDA RETTE3,X ;S/R/W/F 
TAX 
LDA RDWR,X 
JSR PRINT 
LDX #$07 ;HIGH 
RETTE3,X ;BLOCK 
HEXOUT 
;LOW 
RETTE3,X ;BLOCK 
HEXOUT 
#$AO ;SPACE 
PRINT 
PRINT 
PRINT 


$co8B 
$c08B 
* 
#+$00 
RETTE2 RETTE3,X 
$0040,X 


#$10 
RETTE2 


YSAVE 
PSAVE 
PHA 
PLP 
LDA $0046 
LDX $0047 


zum DISK-II-Driver 
JMP DISKII+4 


DS 
HEX 
HEX 


= Seek 
Read 
Write 
= Format (kommt nicht vor) 


ASC "SRWF" 


ORG $300 


Block-Tracer von ProDOS für 
RAM-Disk-Driver von U.Stiehl 
August 1984 

%* 

PRINT EQU $FDED 

HEXOUT EQU $FDDA 

RAMDISK EQU $FFOO 

* 
ALT: 


$FFOl: 


. 
” 
* $FFOO: 
. 
* $FFO3: 


“RK KKK KH 


”*x* x %* 


< 
S 
43 
oO 
Pr.) 


* 


NEU: 


$FF0O: JMP VEKTOR 
$FFO03: LDA $3C 


Block-Tracer-Vektor 
initialisieren 


LDA $C08B :READBK1l 
LDA $C08B :WRITEBKl 
LDA #$4C ;JMP 
STA RAMDISK 

LDA #<VEKTOR 

STA RAMDISK+1 

LDA #>VEKTOR 

STA RAMDISK+2 

LDA $cosıl ;RDROM 
LDA $Cc081 :WRBKl 
RTS 


Sprung vom RAM-Disk-Driver 
an diese Stelle 


STA ASAVE 
STX XSAVE 
STY YSAVE 


LDX #$00 


RETTEl LDA $0040,X 


* 
* 
* 


* 


STA RETTE3,X 
INX 

CPX #$10 

BNE RETTEL 


Block-Nr. $HHLL anzeigen 


LDA $C081 ; RDROM 
LDA $co81l ;WRBKl 
LDX +#$02 ; COMMAND 
LDA RETTE3,X ;S/R/W/F 
TAX 

LDA RDWR,X 

JSR PRINT 

LDX #$07 ; HIGH 
LDA RETTE3,X ;BLOCK 
JSR HEXOUT 

DEX ; LOW 
LDA RETTE3,X ;BLOCK 
JSR HEXOUT 

LDA #$A0 

JSR PRINT 

JSR PRINT 

JSR PRINT 


LDA $C08B 
LDA $C08B 


LDX #$00 


RETTE2 LDA RETTE3,X 


* 


STA $0040,X 
INX 

CPX #$10 
BNE RETTE2 


ASAVE 
XSAVE 
YSAVE 


+$0B 
CLD 


Zurück zum RAM-Disk-Driver 


JMP RAMDISK+3 


RETTES DS 


HEX 
HEX 
HEX 


Seek 
Read 
Write 
Format (kommt nicht vor) 


\ 
ASC "SRWF" 


[ 
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294999 299999 DEEKER 44 
peeker 


AUFTRAG FÜR KLEINANZEIGEN 
rse 





Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 


[} suche Hardware [] suche Software [] Tausch [] verschiedenes 
[| biete Hardware [| biete Software [] Kontakte [] Chiffre 





E peeker-Börse 





Gelegenheitsanzeigen 





u EEEEEEEEENEEE de 
EEEEEEEEEEEEEBEEEEEREEEEBNEENEEENE 
Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 


zwischenräume. Bitte Absender nicht vergessen. 
Chiffregebühr DM 6,— zuzügl. MwSt. 


aaaamd MAGAZIN FÜR APPLE-COMPUTER 


‚Ssete________ erschienenen 


Sie können unter dieser 

Rubrik zu einem besonders 

günstigen Preis 

@ Ihre Hardware und 
Software verkaufen 

@ Ihre Hard- und Software 
suchen 

® Kontakte knüpfen und 
vieles mehr 








Zu der in »peeker«, Heft 
[] Anzeige [|] Frsdukiissseschung 





Musteranzeige privat 


1 Druckzeile a 32 Buch- 
staben nur DM 5,— 
zuzügl. ges. MwSt. 


über 


bitte ich um detaillierte Information. 
Ich wünsche [| Prospekt, Datenblatt [| Preisliste [1 schriftliches Angebot U] tel. Rückruf 


Produkt und Bestellnummer 
Beispiel: | 

gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 


Verkaufe neuwertigen Typenrad- 
drucker mit Apple-Interface. 
Preis auf Anfrage. Tel. 007 





nur DM 17,10 inkl. MwSt. 


3 mi 





Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 


a2a2amd MAGAZIN FÜR APPLE-COMPUTER 


Schreiben Sie uns, wenn Sie Fragen, Ergänzungen oder Anregungen zu 
Aufsätzen in »peeker« haben: 


Musteranzeige gewerblich 





Die einspaltige Millimeter- 
zeile (42 mm breit) kostet 
5,50 zuzügl. ges. MwSt. 








Beispiel: 







Neu im Angebot: Professionelle, 
separate Tastatur für Apple Il 
plus 16 Funktionstasten und sepa- 
ratem Ziffernblock. 

Fa. Keyboard & Co. 





nur DM 137,94 inkl. MwSt. 


Br Info fF 


ANTWORTKARTE 








peeker-Börse 
Anzeigen-Service 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


Bitte veröffentlichen Sie den um- 
stehenden Text von Zeilen 
a DM in der nächsterreich- 
baren Ausgabe von »peeker« 








Bei Angeboten: Ich bestätige, daß ich alle 
Rechte an den angebotenen Sachen besitze 


Unterschrift 


POSTKARTE 


Firma 


Straße 
Telefon mit Vorwahl 


Anschrift der Firma angeben, bei der Sie PLZ/Ort 
bestellen bzw. von der Sie Informationen 
wünschen 


POSTKARTE 


peeker 
Redaktion 


Postfach 10 2869 
6900 Heidelberg 1 





RER 





Produkt- 
Karte 


Wünschen Sie 
weitere Informationen 
zu einem der im Heft 
vorgestellten 
Produkte ? 





Nichts einfacher als 
das. 

Produkt-Karte aus- 
füllen, mit 60-Pfennig 
frankieren und 
absenden. 


Vorher aber nicht 
vergessen: 

kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfrage. 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten/Herstellers 
und Ihre vollständige 
Firmenanschrift ein. 








MAGAZIN FÜR APPLE-COMPUTER 


für Aufsteiger 


Mit ausführlichen 


Ulrich Stiehll Programmbeispielen 





Apple ProDOS für Auf- 
steiger 


Band 1 


von Ulrich Stiehl 

1984, 202 S., kart., DM 28,- 
ISBN 3-7785-1027-4 
Hüthig Verlag, Heidelberg 


ProDOS ist das neue „professio- 
nelle DOS“ (Professional Disk 
Operating System) für den Apple 
Ile sowie den mit einer Language 
Card ausgestatteten Apple II Plus. 
Reine Applesoft-Programmierer, 
die bereits unter DOS 3.3 pro- 
grammiert haben, werden sich 
schnell an ProDOS gewöhnen, da 
die diesbezüglichen Unterschiede 
zwischen DOS 3.3 und ProDOS 
weniger gravierend sind. 

Sinngemäß liegt das Schwerge- 
wicht in dem ersten Band von 
„ProDOS für Aufsteiger“ auf der 
Assembler-Programmierung, da 
Assembler-Programmierer unter 
ProDOS völlig umdenken müssen. 
Insbesondere sind alle früheren 
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Assemblerprogramme unter Pro- 
DOS nicht mehr lauffähig und be- 
dürfen einer intensiven Überarbei- 
tung. Band 1 befaßt sich überwie- 
gend mit den theoretischen 
Grundlagen von ProDOS, der in- 
ternen und externen Speicheror- 
ganisation und enthält grundlegen- 
de Beispielprogramme für Assem- 
bler-Programmierer sowie gene- 
relle Untersuchungen zum BASIC- 
‚SYSTEM. Da ProDOS über erheb- 
lich vielfältigere und leistungsfähi- 
gere, zugleich jedoch erheblich 
kompliziertere Dateistrukturen ver- 
fügt, sind theoretische Kenntnisse 
von ProDOS unabdingbar, wenn 
man die Features von ProDOS voll 
ausschöpfen will. 





Aus dem Inhalt: 

Ein erster Überblick - ProDOS und 
DOS 3.3 — Interne Speicherorgani- 
sation — Externe Speicherorgani- 
sation — MLI (Machine Language 
Interface) — ProDOS für Applesoft- 
Programmierer 


0 
ENT 
SS 
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FORMAT-Befehl 





von U. Stiehl 


Der FORMAT- oder INIT-Befehl ist im 
ProDOS-Betriebssystem u.a. aus Platz- 
gründen nicht enthalten. Statt dessen 
wird von Firma Apple empfohlen, stets 
eine größere Anzahl bereits initialisier- 
ter Disketten bereitzuhalten, da norma- 
le Anwenderprogramme eine Formatie- 
rung aus dem Programm heraus nicht 
zulassen. Zur Formatierung muß näm- 
lich eigens der FILER geladen werden, 
der jedes residente Programm ein- 
schließlich des BASIC.SYSTEMSs zer- 
stören würde. Mit der nachstehend be- 
schriebenen Utility FORMAT.LC ist es 
nunmehr möglich, nicht nur aus einem 
Anwenderprogramm heraus, sondern 
auch über die Tastatur den FORMAT- 
Befehl aufzurufen. 


Mittlerweile wurden von mir bereits zwei 
Formatierungsroutinen für ProDOS ge- 
schrieben: 


PRODOS.INIT, das in dem Buch „Pro- 
DOS für Aufsteiger“ enthalten ist, basiert 
noch auf der DOS-RWTS-Routine (RWTS 
= Read Write Track Sector) und ist völlig in 
sich abgeschlossen, d.h. benutzt keinerlei 
programmexterne Routinen, so daß es so- 
wohl nach dem Booten von ProDOS wie 
auch nach dem Booten von DOS 3.3 ein- 
gesetzt werden kann. Es empfiehlt sich 
stets dann, wenn Fremdlaufwerke, etwa 
80-Spur-Drives, erstmals für ProDOS 
konfiguriert werden sollen, denn bekannt- 
lich gibt es bislang keine bootfähigen Pro- 
DOS-Systemdisketten für Fremdlaufwer- 
ke. Gegebenenfalls könnte PRODOS.INIT 
auch in Anwenderprogramme eingebun- 
den werden, doch ist es hierfür nicht kon- 
zipiert worden, zumal es den RAM-Be- 
reich von $8000 bis $90FF einnimmt. 


FORMAT.LC basiert auf dem ProDOS- 
System selbst und setzt deshalb die Exi- 
stenz des in der Language Card Bank | 
befindlichen Teilprogramms PRODOS 
voraus. FORMAT.LC liegt selbst in der 
Language Card, und zwar in Bank 2 ab 
$D300 und nimmt damit keinen unnötigen 
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für ProDOS 





Speicherraum in den unteren 48K weg, So 
daß es bestens in Anwenderprogramme 
eingebunden werden kann. Wie mit PRO- 
DOS.INIT können auch mit FORMAT.LC 
Laufwerke unterschiedlichen Typs (35-, 
40- und 80-Spur-Laufwerke für 5,25-Zoll- 
Disketten sowie beispielsweise 80-Track- 
Drives für 3,5-Zoll-Disketten formatiert 
werden, wenn die üblichen Controller- 
Konventionen bezüglich der Schrittmotor- 
steuerung usw. eingehalten werden. Als 
Faustregel gilt: Wenn die unveränderte al- 
te DOS-RWTS (von der Spurenanzahl ab- 
gesehen) auf ein Fremdlaufwerk ange- 
wendet werden kann, dann sind auch un- 
sere Formatierungsprogramme lauffähig. 


Nachfolgend sind das Maschinenpro- 
gramm FORMAT.LC sowie das überge- 
ordnete Applesoft-Programm FOR- 
MAT.LC.START gelistet. Wegen des un- 
gewöhnlichen Umfangs des Maschinen- 
programms kann hier nur der Hex-Dump 
abgedruckt werden. 


1. Anwendung von FORMAT.LC 


Wenn man mit 

RUN FORMAT.LC.START 

das Applesoft-Programm startet, erscheint 
ein kurzes Menü, das nach 

— Slot (1-7) 

— Drive (1-2) 

— Spuren (35-80) 

fragt. Diese Parameter werden in das Ma- 
schinenprogramm gepokt, das dann auf- 
gerufen wird. Es meldet sich mit 

INIT STIEHL, D1 J/N oder 

INIT STIEHL, D2 J/N 

Mit „N“ oder „n“ könnte man jetzt noch 
das Formatierungsprogramm verlassen. 
Anderfalls wird es nach „J“ oder „j“ ohne 
weitere Warnung gestartet. Man muß also 
bereits zuvor eine Leerdiskette in das ent- 
sprechende Laufwerk gelegt haben. 
„STIEHL“ steht für den Volume-Namen, 
den man später mit 

RENAME /STIEHL,/MAYER 0.2. 

in den eigenen Namen abändern kann. 
Wenn während der Formatierung keine 


FORMAT.LC 


Assembler-Hex-Dump 


BSAVE FORMAT.LC, A$80BB, L$OCAO 


Starten mit BRUN FORMAT.LC 


Programm verschiebt sich auto- 


matisch in die LC Bank 2 
$D100-$DD5A 


$80B8: 
$80C0: 
$80C8: 
$80D0: 
$80D8: 
$80E0: 
$80E8S: 
$80F0: 
$80F8: 
$8100: 
$8108: 
$8110: 
$8118: 
$8120: 
$8128: 
$8130: 
$8138: 
$8140: 
58148: 
$8150: 
58158: 
$8160: 
$8168: 
58170: 
58178: 
$8180: 
$8188: 
$8190: 
58198: 
$81A0: 
HB1AB: 
$81B0: 
$81B8: 
$81C0: 
$81C8: 
$81D0: 
$81D8: 
$81EO: 
$81E8: 
$81FO: 
$H81F8: 
$8200: 
$8208: 
$8210: 
$8218: 
$8220: 
$8228: 
$8230: 
$8238: 
$8240: 
$8248: 
$8250: 
68258: 
$8260: 
$8268: 
$8270: 
$8278: 
$8280: 
$8288: 
$8290: 
$8298: 
$82A0: 
H82AB8: 
$82B0: 
$82B8: 
$82c0: 
$82C8: 
$82D0: 
$82D8: 
$82E0: 
$82E8: 
$82F0: 
$82F8: 
$8300: 
$8308: 
$8310: 
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Störungen auftraten, kehrt FORMAT.LC 
zum Applesoft-Programm ohne Meldung 
zurück. Im Falle eines Fehlers wird die 
Routine sofort abgebrochen und ein „E“ 
für Error angezeigt. Ferner wird die Fehler- 
Nummer in der Speicherstelle 767 abge- 
legt, die durch das Applesoft-Programm 
abgerufen werden kann. Die häufigste 
Fehler-Nummer ist 39 = I/O-Error, d.h. 
keine Diskette im Laufwerk, nicht-belegter 
Slot und/oder Drive usw. 


Das Applesoft-Programm FORMAT.LC- 
‚START ist entbehrlich, wenn keine Para- 
meter geändert werden müssen. FOR- 
MAT.LC ist eingestellt auf 

Slot 6 

Drive 1 

Spuren 35 

Diese Ersatzwerte lassen sich wie folgt 
ändern (Beispiel): 

BLOAD FORMAT.LC 

CALL - 151 

8103: 05 (Slot 5) 

8104: 02 (Drive 2) 

8105: 50 (80 Spuren) 

Ctrl-C 

BSAVE FORMAT.LC 

Wenn man FORMAT.LC ohne das Apple- 
soft-Programm gestartet hat, so kann man 
es jederzeit mit 

CALL 48960 

aufrufen, und zwar sowohl über die Tasta- 
tur wie auch aus einem Programm heraus. 


2. Technisches zu FORMAT.LC 


FORMAT.LC wird zunächst in den Spei- 
cherbereich $80BB-$8D5A geladen, da 
unter ProDOS Programme nicht direkt in 
die Language Card Bank 2 gelegt werden 
können. Ein kurzes Move-Programm ver- 
schiebt erstens das eigentliche FOR- 
MAT.LC ab $8100 in die Bank 2 ab $D100- 
$DD5A und installiert zweitens einen 
Sprungbefehl in der ProDOS Global Page 
ab $BF40 (= dezimal 48960). Hier steht 
normalerweise der Copyrightvermerk 
„COPR. APPLE,1983“, der zugleich die 
einzige noch freie Stelle in der Global Pa- 
ge darstellt. FORMAT.LC kann durch 
CALL 48960 oder durch JSR $BF40 auf- 
gerufen werden. Es ist damit völlig benut- 
zertransparent und funktioniert auch dann, 
wenn sich das BASIC.SYSTEM nicht im 
Speicher befindet. 


FORMAT.LC überschreibt den Bereich 
des sog. REBOOT-Programms in der 
Bank 2, das in „ProDOS für Aufsteiger“ 
erstmals erwähnt wurde und nach der In- 
stalllerung von FORMAT.LC nicht mehr 
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per MLI (Machine Language Interface) auf- 
gerufen werden darf. Ferner ändert FOR- 
MAT.LC die folgende Speicherstelle: 
$F809: CA DO 2A alt 

$F809: 18 90 04 neu 

Damit wird die Disk-Driver-Routine ge- 
patcht, welche normalerweise die zulässi- 
ge Block-Gesamtzahl von 280 überprüft. 
Dieser Patch bleibt auch nach der Forma- 
tierung bestehen. 


FORMAT.LC rettet zunächst den benötig- 
ten Teil der Zero-Page $0030-$00FF in 
den Eingabepuffer $0230-$02FF, initiali- 
siert dann die Diskette in der gewünschten 
Spurenanzahl und legt schließlich die 
Blocks 0-6 an (Urlader, Volume-Directory 
und Volume Bit Map). Dann wird die Zero- 
Page wieder hergestellt, eine mögliche 
Fehler--Nummer nach $02FF übertragen 
($02FF: O0 bedeutet keinen Fehler) und 
schließlich das Programm über eine kurze 
Routine ab $0230 verlassen, welche die 
Language Card wieder abstellt. Man sollte 
also niemals FORMAT.LC durch Ctrl-Re- 
set gewaltsam verlassen, da sonst die Ze- 
ro-Page nicht mehr die alten Werte enthält. 
Im Zweifelsfall öffne man die Laufwerk- 
Klappe, worauf die Formatierungsroutine 
sofort abgebrochen wird. 


FORMAT.LC enthält zwei interne Puffer, 
nämlich erstens einen 2-Block-Puffer mit 
dem Urlader für Block O und 1, der unver- 
ändert der ProDOS-Systemdiskette als 
Kleinzitat entnommen ist, sowie zweitens 
einen 1-Block-Puffer zur Anlage der Dis- 
kettenblocks 2-6. Ferner wird der Einga- 
bepuffer ab $0230 — wie zuvor erwähnt — 
benutzt. 


Aufgrund eines Fehlers im BASIC.SY- 
STEM empfiehlt es sich, die Input-Output- 
Vektoren im FORMAT.LC.START-Pro- 
gramm vorübergehend vom BASIC.SY- 
STEM abzuhängen, da Applesoft sonst in 
den Trace-Modus gelangt, was mit der 
Anzeige des Mini-Menüs „INIT STIEHL, 
D1“ und der Belegung der Zero-Page zu- 
sammenhängt. 


FORMAT.LC benutzt direkt den Disk-Dri- 
ver ab $F800 und nicht das MLI im enge- 
ren Sinne. Letzteres würde nämlich gar 
nicht zulassen, daß ein sich in der Bank 2 
befindlicher Datenpuffer auf die Diskette 
geschrieben wird, von den Bank-Swit- 
ching-Konflikten einmal ganz abgesehen. 
Wie man den Disk-Driver direkt benutzt, 
wird anhand des nachstehenden Beispiel- 
programms DISKDRIVER.DEMO gezeigt. 
us 
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$8888: : 35 DC A9 FF AE 05 D1 CA 
$8890: : 9D 3A D9 CA DO FA A9 01 
$8898: : 8D 3A D9 AO 3A A9Y D9Y 20 
$88A0: : 23 DC A9 06 85 46 20 00 
$88A8: : F8 90 03 4C F6 DB AC FE 
$88B0: : DB D5 D3 00 00 00 00 00 
$88B8: 
$88C0: 
$8808: 
$88D0: 
$88D8: FORMAT.LC.START 
$88E0: 
$88E8: 
$88F0: Applesoft-Listing 
$88F8: 
$8900: 10 PRINT CHR$ (4) "BRUN FORMAT.LC": 
$8908: REM FORMAT.LC in Language Card 
58910: schieben 
$8918: 15 PRINT CHR$ (21): POKE 242,0: 
$8920: PR# O: IN# O0: REM BASIC.SYSTEM 
$8928: abhängen 

TEXT : HOME : VTAB 5: INVERSE : 
(Blockpuffer freilassen in PRINT "PRODOS FORMAT.LC": 
diesem Bereich) NORMAL : PRINT 
$8B38: 00 00 00 X = PEEK (49281):X = PEEK (49281): 
$8B40: 3A AR 9D REM Bank 2 schreibfähig machen 
$8B48: 02 DO AO INPUT "Slot (1-7) : ":s 
$8B50: B9 E8 POKE 53507,5 
$8B58: F7 8D INPUT "Drive (1-2) : ";D 
$8B60: DB FO POKE 53508,D 
$8B68: 2C INPUT "Spuren (35-80): ";T 
$8B70: 2C POKE 53509,T 
$8B78: EA HOME : VTAB 10: CALL 48960: 
$8B80: EE REM Formatieren 
$8B88: IF PEEK (767) < > 0 THEN PRINT: 
$8B90: PRINT "Fehler-Nr. "; PEEK (767): 
$8B98: GOTO 90 
$8BAO: HOME : VTAB 11: PRINT "Erneut J/N "; 
$8BAB: GET X$: IF X$ = "N" OR X$ = "'n" 
$8BBO: THEN 90 
$8BB8: IF X$ = "J" OR X$ = "j" THEN 60 
$8BC0: GOTO 75 
$8BC8: CALL 39447: REM BASIC.SYSTEM 
$8BDO: wieder anhängen 
$8BD8: 


8 ; 
_ Warnung 


$8BFO: FORMAT.LC läuft nur unter 
en ProDOS 1.01! 
8C00: 
$8c08: 
$8C10: 
$8C18: 
$8020: 
$8028: 


2 DB-MEISTER 


$8038: 


$8C40: Adreß- und Schemabriefprogramm 
$8C48: 


$8C50: Der DB-Meister ist ein in Assembler ge- 
$8058: schriebenes, ungewöhnlich schnelles, un- 
$8C60: kompliziertes und zugleich „narrensicheres“ 


-_—_ Adreß-, Datei- und Schemabriefprogramm. 


$8C78: Technische Daten 

$8C80: Recordlänge bis zu 230 Zeichen 

$8088: 560 bis 1000 Records pro Datendiskette 
$8C90: Maximal 25 Felder pro Record 

er Suche nach 3 Indexfeldern 

$acas: Ausdruck der Dateien als Etiketten, Listen 
$8CBO: und Schemabriefe (mit Felder- und Tasta- 
$8CB8: tureinschüben an beliebigen Stellen des 
$8cco: Formbriefes) 

$8CC8: normal kopierbare Programmdiskette, un- 
$8CDO: terteilt in Hauptprogramme und diverse 
: | Hilfsprogramme 

SSCEB: einsatzfähig auf Apple Ile, Ilc oder II Plus 
$SCFO: mit 2 Drives (1 Drive ebenfalls möglich) 


$SCF8: Gesamtpreis 290,— (2 Disketten + ge- 
$8D00: drucktes Manual) 

$8D08: 

$8D10: U. Stiehl 


a. c/o Dr. A. Hüthig Verlag 
$8D28. Postfach 10 28 69 - 6900 Heidelberg 
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DISKDRIVER DEMO 


ORG $300 LDX #0 
* STA $D100,X 
* DISKDRIVER.DEMO : INX 
I — — — — — — — : BNE ZWEI 
* * 
* Beispiel für direkten Zugriff * Command: Ol Read, 02 Write 
* auf ProDOS-Disk-Driver ab $F800 * 
* s LDA #2 ;Write 
* Vorteil: ; STA %42 ; Command 
* Datenpuffer darf sich * 
* in den RAM-Bereichen * Unit-Nummer: hier für S6, Dl 
* $0200-$BEFF sowie in * 
* $DO00-$DFFF von Bank 2 i LDA #%01100000 ;D1,S6 
* befinden. ’ STA $43 ;Unitno 
* 
* Vor JSR $F800 müssen die Para- Puffer-Adresse: hier $DO000 
* meter in die Zero-Page 
* $0042-$0047 gepokt werden. s LDA #$00 ;$D000 
* 2 STA 944 ‚Low 
* $0042: Command: l=read, 2=write 
* $0043: Unitnumber: Slot/Drive i LDA #$DO 
* $0044: Low Byte Puffer : STA 945 ‚High 
* $0045: High Byte Puffer 
* $0046: Low Byte Blocknumnmer Block-Nummer: hier $0117 = 279 
* $0047: High Byte Blocknummer 6 
. : LDA #$17 ;50117 
* Nach JSR $F800 befindet sich : STA $46 ;Low 
* eine mögliche Fehlernummer 
* im Akkumulator, falls das ; LDA #$01 
* Carry-Flag gesetzt ist. : STA $47 ‚High 
%* 
*--—------- - -- Disk-Driver aufrufen: $F800 
* 
* Bank 2 der LC lese- und 5 JSR $F800 
* schreibfähig machen 
” Language Card abstellen 
LDA $C0083 ‚RD Bank2 
LDA $C083 ;WR Bank2 h LDX $c081 ;‚RD ROM 
* : LDX $c081 ;WR Bank 2 
* Speicherbereich $D000-$D1FF 
* mit Hex-Muster füllen = 1 Block i BCC ENDE ‚okay 
* 


FOOT PO DH 


X NW SU WO WA DDDDODDyDyDDDy Dr Fre HH 
PN DH-OODOTIO IP DHrOODO IV DH O 


LDA #1 N Fehler als Hex-Zahl anzeigen 
LDX #0 

STA $D000,X JSR $FDDA ;PRBYTE 
INX : RTS 

BNE EINS 


LDA #2 


APPLE -- DISKETTEN LAUFWERKE -- APPLE IBM °** KOMPATIBEL **""" IBM *** KOMPATIBEL * 
Original Disk Ilm. Controller + DOS3.3+ Hdbuch DM 995,— 100% Apple-kompatibel 6 Mon. Garantie Reparaturservice 


Alle Teile unterliegen einer sorgfältigen Endkontrolle und wir 
Original Disk II (2. Laufwerk) DM 765,— Piano AN übernehmen daher volle Garantie für die Funktionsfähigkeit, 
Duo-Disk Station Slimline, 2 x 143KB Chinon DM 995,— pP y ® sowohl für die gelieferten Leerplatinen, als auch für die fertig 
Siemens Disk-Laufw., 143KB, m. Kabel + Gehäuse DM 525,— Pe bestückten Boards und Interface Karten, die fast ohne Ausnahme 
Abor-Disk-Laufw., Slimline, 143KB, m.Kab.+ Geh. DM 435,— Es mit gesockelten IC's geliefert werden. 
Chinon Slimline, 143KB, Superleise,m.Kab.+Geh. DM 495,— pr \ S \ — f IBM -- Kompatible Interface Karten und Mainboards -- IBM 
Teac 55F, 1 MB unf. Kapazität, Shugartbus DM 625,— < u : f Disk Controller Karte für 2 Disk-Drives *KL-2020 DM 310,— 
Teac 55F, kpl. in Gehäuse, 40/80 Track, 1MByte f & ; NIIT = F \ Sa Disk Controller Karte für 4 Disk-Drives *"KL-2021 DM 399,— 
anschlußfertig, mit Umschaltung 40/80 + Kabel DM 698,— f j NM I ; Ss Color Video Board, Farb- und Video Ausg. "KL-2050 DM 698,— 
Zweitlaufwerk für Apple II C, 143 KB, mit Kabel DM 498,— R . RI m ; Monochrome Video Boards "KL-2060 DM 398,— 
APPLE -- INTERFACES + MAINBOARDS -- APPLE £ E N re \ RS 232 Drucker Interface Karte KL-2074 DM 199,— 
Disk Controller f. 2 Original o. kompat. Drives "DM 89,— £ - N, - Centronics Paralell Interface Karte KL-2072 198, — 
Super-Controller f. 2x Teac 55F, mit Software "DM 239,— £ : es :L Multifunktion Karte, RAM-Bereich, RS232, 
80 Zeich-Karte mit 64K RAM + Softsw. f. Ile DM = wi ee PEOEE Paralell, Clock, mit O K bestückt "KL-2040 555.— 


80 Zeich-Karte Il, m. Softswitch, 2 Zeichensätzee "DM APPLE -TASTATUREN+LEERGEHÄUSE+NETZTEILE- APPLE APPLE -- ORIGINAL + KOMPATIBLE - COMPUTER -- APPLE dito. wie vor, jedoch mit 128K bestückt "KL-2041 899,— 
16K RAM Erweiterung für Il und kompatible „DM Standard Einbau-Tastatur, ASCII, freibel. 9 Tasten, APPLE Ile, 64KRAM, Ascii-Tastat. + UHF-Modul. DM 2198— dto. wie vor, jedoch mit 256K bestückt "KL-2042 DM 1245,— 
2 80A Interface Karte für CPM 2.2 DM Doppelbelg. aller Tasten, Groß+Kleinschr. Nr.N26 DM 139,— APPLE Ile, Einstiegspaket = Computer 64KRAM, 512K RAM Karte, mit O K bestückt KL-2095 348,— 
Z 80B Interface Karte für GPM 3.0, m. 64K RAM „DM Tastatur wie vor, jedoch mit 15er Block Nr.N67 DM 178— + Philips-Monitor 18 Mhz grün + Siemens F122 - dto. wie vor, mit 128K bestückt KL-2096 689,— 
Printer-Grafik Interface, Epson kompatible „DM Tastatur Nr. N67, mit sep. Gehäuse, kpl.m.Kabel' DM 249,— Laufwerk 143K m. Controller + Lerndiskette DM 3098,— Multi I/O Interface Board, RS232, Disk-Controller, 
Centronic-Paralell Text-InterfaceKater „DM Seperate Tastatur IBM-Look, anschlußfertig mit APPLE IC, 128 KRAM, ASCII Tastatur DM 2795,— _ Centronics, Clock, Joystick 

Printer-Grafik Interface, NEC/ITOH kompatibel DM Kabel, Dopp. belegt.Tasten, freiprog. Funkt. Tasten DM 298,— APPLE II C, wie vor, jedoch deutsche Tastatur DM 2998,— und Lightpen-Port "KL-2071 

Anschluß Kabel f. Paralell + Grafik Interface DM Seperate Tastatur, Eprom progr.-bar, Cursorblock MACINTOSH System komplett m. Mouse + Tastatur Eprom Writer Karte (bis 128K benutzbar) a. A. 
Buffer Grafik-Interface, benutzbar für Drucker Tastenfeld mit 24 Funktionen, Deutsch o. ASCII DM 398— + Macwrite/Macpaint, Systemguide-Diskette DM 5995, — _Hardisk/Winchester Host-Adapter Karte *KL-2022 DM 1188,— 
Epson/Nec/Itoh/Okidata u. andere m. 32K Buffer DM Leergehäuse Standard, passend f. TastaturNr.N26 DM 98,— MEWA-48K, Apple kompat., Netzt. 5Amp, Tastatur Mainboard XT Version, 8Slots 64K bestückt 

Buffer Interface wie vor aber mit 64K Buffer DM dto. wie vor, jedoch passend für 15er Tast. N67 DM 119,— mit Dopp-Belegung + 10 frei Prog.Tasten, mit mit 1 Boot-Eprom, 6 Eprom-Plätze frei "KL-1004 DM 1288,— 
Anschluß Kabel f. Butter Interface Karte u Leergehäuse wie Mewa 9000, für Einbau von zwei UHF-Mod,, ohne Firmware Eproms. DM 888,— dto. wie vor, jedoch mit 128K bestückt *KL-1005 DM 1449,— 
232C Serielle Interface Karte ‚DM Slimline-Laufwerken + Tastaturanschluß, Plastic DM 159— __MEWA-S4K. wie vor jedoch mit 15er Block DM 948,— dto. wie vor, jedoch mit 266K bestückt "KL-1006 DM 1789,— 
Super Serielle Interface Karte, Fullduplex ‚DM Leergehäuse wie vor, jedoch in Metall-Ausführung DM 198,— MEWA 9000er Serie, mit seper.Tastat. DIN 0. ASCIl Mainboard PC Version, 8 Slots, 64K bestückt 

Sprach (Speech) Karte f. Sprachwiedergabe DM Leergehäuse IBM-Look, f. 2 Laufw. Standard 5" DM 198,— m. dopp. belegt. Funkt-Tasten, Cursorbl. + 15er mit 1 Boot-Eprom, 6 Eprom-Plätze frei "KL-1010 DM 999,— 
6522 Paralell Interface Karte DM Leergehäuse für 1 Slimline Laufwerk, Metall DM 19,90 Block Netzt. 5 Amp., Gehäuse für 2x Slimline- dto. wie vor, jedoch mit 128K bestückt *KL-1011 DM 1289,— 
Clock Karte (Datum/Uhrzeit) Ein/Ausgabe "DM Leergehäuse f. Duo-Disk = 2x Slimline-Laufwerke DM 98,— Laufwerke UHF-Modulator, o. Firmw.-Proms dto. wie vor, jedoch mit 256K bestückt "KL-1012 DM 1579,— 
Eprom Writer Karte (2716 - 2764) "DM Leergehäuse f. Duo-Disk = 2x Standard-Laufw. DM 109,— (12KROM), 48K RAM DM 1098,— Bei den mit * gekennzeichneten Artikeln gehört zum Lieferumfang 
IEEE-488 Interface Karte "DM Leergehäuse f. Duo-Disk = 2x Slimline + Netzteil DM 179,— MEWA 9000-64-C, wie vor jedoch 64K RAM DM 1198 — ein Manual, und z. T. ein Schaltbild. 

Logo-Karte mit Diskette und Handbuch „DM Schaltnetzteile für APPLE u. kompatible Rechner MEWA 9000-64-C Einstiegspaket, wie vor, jedoch IBM -- Kompatible Leerplatinen + Boards - IBM 
Musik Karte m. Diskette und Handbuch DM +5V/3,5A -5V/0,5A +12V/2A -12V/05A  N73 DM 99,80 mit 1 Disk Drive eingeb. + Disk-Contr. + Monitor, Disk Controller f. 2 Drives DM 

PAL Color Interface Karte (UHF + Video) "DM +5V/5 A -5V/0,5A +12V/2,5A -12V/0,5a  N74 DM 119,80 grün DM 2098,— Disk Controller f. 4 Drives DM 

RGB Interface Karte (f. Apple Il + Il+) "DM +5V/7,5A -5V/0,5A +12V/2A -12V/0,5A  N75 DM 149,50 IBM-Look Gehäuse für MEWA 9000 Serie Aufpreis DM 68, Color Grafik Video Board DM 

Wild Karte (kopiert über RAM-Bereich) "DM rt .  DISKETTEN + DISKETTEN-BOXEN -- *"t*tt** see „. MATRIX- UND TYPENRAD - DRUCKER -- ******** RS232 Interface Karte DM 

128K RAM Erweiterungs Karte m. Patchsoftware "DM Profi Disk.Box, m. Schloß, Klars.-Deckel, 100Disks DM 49,— CP-80 Matrix Drucker, Epson kompat., vollgrafikl. DM 739, Centronics Paralell Interface Karte DM 

256K RAM Erweiterungs Karte m. Patchsoftware DM Disk Box mit Klars.-Deckel, ca. 70 Disketten 5" DM 26,— CP-80 X mit eingeb. Interface für VC 64 1. Sim. B. DM 899 — Multifunktion Interface Board DM 

6809 Prozessor Exell-9 Interfacekarte + DM Hartbox für 10 Disketten, mit Klappdeckel DM 6,90 SPEEDY 100-80, Epsonkompat.,1002/s,v.-grafik(. DM 759,— Eprom Writer Interface Karte 

IC-Tester Interface Karte (RAMS/TTL 54/74) DM 448,— Disketten, mit Verstärkungsring, 3 Jahre Garantie GEMINI 10X. Neu mit Textsp 100 Z/s.. 9x9 Mat DM 998. — Multi /O Board DM 
EB nB SER, 0: Firmware Epkama. 9 Slots DM 548 _ ABX 100 = SS/SD 10 Stck. a. 3,98 50 Stck. a. 3,88 500 Stck. a. 3,59 x : 


: h : : Mainboard XT Version, 8 Slots DM 

i i h bis 375 mm Papierbr. DM 1198,— 

EEE ni Om E  ABX 200 = SS/DS 10Stck.a. 4,0850 Stck. a. 3,98 500 Stck. a. 3,69 TON 8510 B, Die Zuverlässigkeit In Person DMAA—  EENEanBI EN Veran een ee 
= = ABX 400 = DS/DD 10 Stck. a. 4,98 50 Stck. a. 4,88 500 Stck. a. 4,59 j ke “ \ ard für Speicher-Erweiterung 

Leerplatinen der obigen Interface Karten sind alle in vergoldet, JUKI 6100. Typenraddr., 22 Z/s, TA-Typenräder DM 1485, Alle Leerplatinen werden mit Bestückungsplan geliefert. 

m. Bestück-Aufdruck + Best.-Plan lieferbar. 


" Schaltbilder, soweit verfügbar, Lieferung gegen Aufpreis. 
Leerplatinen mit der Kennzeichnung "DM 39,— Computer-Artikel Nachnahmeversand unfrei, Zwischenverkauf vorbehalten. IBM -- Gehäuse/Netzteile/Tastaturen/Diskdrives - IBM 


Leerplatinen mit der Kennzeichnung "DM 24,50 Angebote freibleibend unter Anerkennung unserer Lieferbedingungen. Technische Änderungen vorbehalten. "Apple ist eingetragenes Rechner Leergehäuse f. Einbau v. 2 Drives DM 

Leerplatinen mit der Kennzeichnung +DM 33,— Warenzeichen der Fa. Apple-Computer Inc., Kalifornien. Ware mit Rückgaberecht, besonders gekennzeichnet, muß frei zurückgeschickt Profi-Tastatur, m. Kabel im Gehäuse, ASCIl DM 395,— 
Experimentier Platine, für Apple Slot EX300 DM 29,90 werden. "IBM* ist eingetragenes Warenzeichen der Firma IBM GmbH Ffm. dto. wie vor, jedoch deutsche DIN Belegung DM 489,— 
Experimentier Platine, für Apple Slot EX500 DM 19,98 Standard Tastatur, IBM-Look, ASCII DM 298,— 
Leerplatine Motherboard, 48K, mit Best.-Aufdruck DM 66,— COMPUTER CENTER CONEX ERICH-WILLI MEYER Netzteil, mit Ventilator, 100 Watt DM 298,— 
Leerplatine Motherboard, 64K, mit 6502 + Z80 DM 99,— dto. wie vor jedoch 135 Watt DM 350,— 
5650 SOLINGEN 11 : Postfach 11 0206-11 G 6343 FROHNHAUSEN - Postfach 70 11 Disketten Laufwerk, 2x40 Track DS/360 KB DM 498,— 


Telefon (0 21 22) 754.49 Telefon (02771) 350 71 Harddisk 10MByte, kpl. m. Xebec Controller DM 349,— 
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Neologismen in der Computersprache 


von Ulrich Stiehl 


Da die Computerwissenschaft rasant 
wächst, werden fast täglich neue Begriffe 
gebildet. Diese Neologismen sind zumeist 
amerikanischer Provenienz; nur selten hat 
man den Mut, „eigene“ Wörter zu 
schaffen. 


1. Etymologieprobleme 

Falsche Wortbildungen können durch 
sorglose „wörtliche“ Übersetzungen zu- 
stande kommen. Zwei Beispiele: 
editieren: Erstens bedeutet „to edit“ her- 
ausgeben (lateinisch edere = herausge- 
ben: e = heraus, dare = geben) und wür- 
de damit dem deutschen „edieren“ ent- 
sprechen. Zweitens bedeutet „to edit“ be- 
arbeiten, redigieren, korrigieren und müß- 
te dann auch so übersetzt werden. „editie- 
ren” ist dagegen ein unglücklicher Zwitter 
und würde genausowenig wie „redaktie- 
ren“ (statt richtig „redigieren“) oder „kor- 
rektieren“ (statt richtig „korrigieren“) pas- 
sen, denn — im Gegensatz zum Engli- 
schen — werden im Deutschen Verben 
lateinischen Ursprungs dadurch gebildet, 
daß man „ieren“ an den Präsensstamm 
(und nicht an den Perfektstamm) anhängt 
(redig/o wird redigieren, corrig/o wird kor- 
rigieren, ed/o wird edieren usw.) 
disassemblieren: Betrachten wir zu- 
nächst einige andere Wörter. Der Gegen- 
satz zu „assoziieren“ lautet „dissoziie- 
ren“ und nicht „disassozlieren“. Das Ge- 
genstück zu „assimilieren“ ist „dissimilie- 
ren“ und nicht „disassimilieren“. Folglich 
müßte es „dissemblieren“ und nicht „dis- 
assemblieren“ heißen. 

„Editieren“ und „disassemblieren“ wird 
man inzwischen nicht mehr ausrotten kön- 
nen, da sie bereits eingeführt sind, doch 
würde uns Deutschen sicherlich gut an- 
stehen, wenn wir nicht alles kritiklos über- 
nehmen würden. 


2. Orthographieprobleme 

In vielen Fällen übernimmt man einfach die 
englischen Computerfachausdrücke un- 
verändert ins Deutsche. Dies bringt jedoch 
eine Fülle orthographischer und grammati- 
kalischer Probleme mit sich. 

2.1. Divis und Großschreibung: Ein 
nicht zusammengesetztes Wort (z.B. Slot 
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als lexikalisches Simplex) oder bereits im 
Englischen zusammengeschriebenes 
Wort (z.B. Softswitch) schreibt man im 
Deutschen stets mit großem Anfangs- 
buchstaben. Vielfach liegen jedoch Kom- 
posita (zusammengesetzte Wörter, hier 
meist Substantiv + Substantiv) vor, die im 
Englischen getrennt und ohne Bindestrich 
(Divis) geschrieben werden, z.B. „directo- 
ry entry”, „volume directory“ usw. Der 
DUDEN gibt für diese Problemfälle keine 
verbindlichen Regeln an. Im einzelnen 
sind zulässig: 

a) Beat generation (zweites Wort klein, 
ohne Divis) 

b) Cash-flow (zweites Wort klein, mit 
Divis) 

c) Cold Cream (zweites Wort groß, ohne 
Divis) 

d) Country-Music (zweites Wort groß, mit 
Divis) 

Man beachte: Language Card (möglich), 
aber Language-Card-Schreibschutz (nur 
so, weil letzter Bestandteil deutsches Wort 
ist). 

2.2. Genus: Da englische Wörter kein Ge- 
schlecht kennen, steht man bei neuen An- 
glizismen vor der Frage, für welches Ge- 
nus man sich entscheiden soll. Heißt es 
„der“ oder „die“ oder „das“ Directory? 
Ich würde hier für „das“ plädieren, da das 
englische „directory“ auf das lateinische 
Neutrum „directorium“ zurückgeführt 
werden kann. Andere Beispiele: der Cata- 
log, weil „der Katalog“; das Volume, weil 
„das Volumen“; der Slot, weil „der 
Schlitz“; die Language-Card, weil „die 
Karte”; die Garbage-Collection, weil „die 
Kollektion“; der Controller, weil „der Kon- 
trolleur“ usw. In vielen Fällen steht man 
jedoch „auf dem Schlauch“ und muß dann 
das Genus willkürlich festlegen. Ich sage 
beispielsweise „der File“, weil französisch 
„le fil“; genausogut könnte man jedoch 
hier auch „das File“ wegen lateinisch „fi- 
lum“ sagen. 

2.3. Deklination: Wenn man das Genus 
erst einmal kennt bzw. festgelegt hat, kann 
man das Problem der Deklination in Angriff 
nehmen. Wie lautet z.B. bei „das Directo- 
ry“ der Genitiv Singular („des Directory 
oder des Directorys“) und der Nominativ 
Plural („die Directories oder die Directo- 
rys“)? Zunächst einige „normale Bei- 
spiele“: 

— der Whisky, des Whiskys; Pl. die Whis- 
kys; aber: der Softy, des Softies; Pl. die 





Softies; ferner: der Pool, des Pools; Pl. die 
Pools 

— die Party, der Party; Pl. die Partys oder 
die Parties 

— das Pony, des Ponys; Pl. die Ponys; 
ferner das Happening, des Happenings; 
Pl. die Happenings; aber das Playback, 
des Playback; Pl. die Playbacks 

Diese Beispiele zeigen, daß englische 
Fremdwörter im Plural (fast) immer ein „s“ 
bzw. bei y-Wörtern oft ein „ies“ haben. Im 
Singular findet man bei den Maskulina und 
Neutra häufig ein „s“ im Genitiv, während 
die Feminina stets endungslos sind. Da 
die DUDEN-Grammatik keine festen Re- 
geln vorschreibt, muß man im Zweifelsfall 
den Deklinationstyp „willkürlich“ festle- 
gen, was zu erheblichen Unsicherheiten 
führt. 

2.4. Verben: Bei Verben englischer Her- 
kunft gibt es weniger Probleme. Normaler- 
weise hängt man an den „Stamm“ (poke, 
peek, move) „(e)n“ an (poken, peeken, 
moven) und konjugiert im übrigen 
schwach: ich poke, du pokst, er pokt; wir 
poken; ich habe gepokt usw. Analog: Der 
File wird gebloadet (oder zur Verdeutli- 
chung geBLOADet). 


3. Eindeutschungsprobleme 

Wenn es darum geht, neue Wörter zu 
schaffen, sind die Deutschen einfach nicht 
mutig genug. Der Engländer nimmt ohne 
viel Federlesens ein bereits vorhandenes 
Wort und verleiht ihm eine neue Bedeu- 
tung. Beispiele hierfür sind „catalog“ (ei- 
gentlich „Bücherverzeichnis“), „volume“ 
(eigentlich „Band“ eines mehrbändigen 
Buches), „string“ (eigentlich „Kordel“), 
„boot“ (eigentlich „Stiefel“) usw. Der 
Engländer denkt sich nichts dabei, wenn 
er Wendungen wie „to home the cursor“ 
benutzt, während wir uns totlachen wür- 
den, wenn jemand HOME mit HEIM über- 
setzen würde. Es wäre an der Zeit, hier 
etwas mehr Mut zu zeigen. In der Neuer- 
scheinung „DOS 3.3“ aus dem Franzis- 
Verlag ist der Autor B. Ruhland teilweise 
sehr mutig gewesen. Einige Beispiele (bit- 
te nicht lachen!): Bezugsadresse (für off- 
set address), Belegungsrichtung (für allo- 
cation direction), Steuerkarte (für control- 
ler), Einsteckschlitz (für slot). Allerdings 
sind auch einige Wortungetüme geprägt 
worden, mit denen ich mich nicht anfreun- 
den kann, z.B. „Sektorinitialisierungs- 
merkbereich“. 
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Kopierschutz für den Apple Ill 


von Matthias Greve 
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Softwarehersteller arbeiten heut- 
zutage mit einer Vielzahl ausgefeil- 
ter Kopierschutzverfahren, um die 
legale Verbreitung von Raubko- 
pien zu verhindern. Der nachfol- 
gende Artikel gibt einen allgemei- 
nen Einblick in die Entwicklung und 
die zur Zeit angewandten Schutz- 
methoden, die wertfrei, d.h. ohne 
Berücksichtigung der kulturpoliti- 
schen und urheberrechtlichen Im- 
plikationen des Schützens darge- 
stellt werden. 


Nicht-formatierte Spuren: Die 
ersten Kopierschutzmethoden wa- 
ren sehr einfacher Natur. Eine 
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Spur (Track) auf der Diskette, mei- 
stens Track 3, wurde nicht forma- 
tiert. Die anfänglichen Kopierpro- 
gramme duplizierten die ganze 
Diskette Track für Track. Durch die 
fehlende Formatierung trat bei 
Track 3 ein Lesefehler auf, und der 
Kopiervorgang wurde abgebro- 
chen. 


Andere Catalog-Spur: Einige 
Softwarehersteller verlegten zum 
Schutz ihrer Programme den 
DOS-3.3-Catalog von Track 17 auf 
einen anderen Track. Solche Dis- 
ketten konnten nur noch mit einem 
modifizierten DOS gelesen 
werden. 
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Spur 35: Auch Hardware-Eigen- 
schaften der Disk-Il-Laufwerke 
wurden zum Schützen der Origi- 
naldisketten ausgenutzt. Außer 
den üblicherweise benutzten 
Tracks 0-34 kann der Schreib/Le- 
sekopf meist noch auf Track 35 
positioniert werden. Standard- 
DOS ignoriert diesen zusätzlichen 
Track mit allen hier abgelegten Da- 
ten. Dies war damals ein sehr ef- 
fektvoller Kopierschutz, da nur we- 
nigen Benutzern dieser technische 
Kniff bekannt war. Die Verwen- 
dung von Track 35 besitzt aber ei- 
nen gravierenden Nachteil. Nicht 
alle Laufwerke können ihren Kopf 
exakt genug positionieren, um 





Track 35 einwandfrei zu lesen. 
Knarren, Lesefehler und nicht boo- 
tende Originale waren oft die 
Folge. 


Andere Prüfsummenbildung: 
Neue Schutzverfahren mußten ge- 
funden werden, die auf allen Rech- 
nern und Laufwerken einwandfrei 
arbeiteten. Bis jetzt wurden alle 
Programme unter Standard-DOS- 
Format auf der Diskette abgespei- 
chert. Programmierer unternah- 
men erste Versuche, das Betriebs- 
system und das verwendete For- 
mat zu ändern. Während das DOS 
die 256 Datenbytes eines Sektors 
auf die Diskette schreibt, wird aus 
allen Bytes eine Prüfsumme gebil- 
det, die zusätzlich auf der Diskette 
gespeichert wird. Beim Lesevor- 
gang bildet das Betriebssystem er- 
neut diese Prüfsumme und ver- 
gleicht sie mit dem abgespeicher- 
ten Wert. Stimmen die beiden 
Werte nicht überein, ist der betref- 
fende Sektor fehlerhaft gelesen 
worden. Zum Schützen wird in ei- 
nem eigenen DOS die Art der 
Prüfsummenbildung geändert. 
Versucht der Benutzer, mit Stan- 
dard-DOS auf die geschützte Dis- 
kette zuzugreifen, stellt die Prüf- 
summenroutine eine Abweichung 
fest und meldet einen Lesefehler. 


Geänderte Header: Oft wurden 
das Diskettenformat und der Auf- 
bau einzelner Sektoren geändert. 
Der Sektor einer Applediskette be- 
steht aus einem Adreß- und einem 
Datenfeld. Adreßfelder werden 
vom Betriebssystem zur Orientie- 
rung auf der Diskette benötigt, da 
diese Informationen über die 
Track-, Sektor- und Volume-Num- 
mer des betreffenden Sektors ent- 
halten. Auf das Adreßfeld folgt das 
Datenfeld, in dem sich die eigentli- 
chen Datenbytes befinden. Um ei- 
ne einwandfreie Erkennung zu er- 
möglichen, beginnt jedes der bei- 
den Felder mit einer Folge von re- 
servierten Bytes, den sog. Hea- 
dern. Der Header des Adreßfeldes 
besteht beim Stahdard-DOS aus 3 
Bytes ($D5 $AA $96). Wenn das 
Betriebssystem einen Sektor lesen 
will, sucht es auf der Diskette zu- 
erst nach diesen 3 Bytes, die den 
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Beginn eines neuen Sektors kenn- 
zeichnen. Konnte das Adreßfeld 
gelesen werden und handelt es 
sich um den gewünschten Sektor, 
sucht das DOS jetzt nach dem 
Header des Datenfeldes. Der Da- 
tenheader besteht wie der Adreß- 
header aus 3 Bytes ($D5 $AA 
$AD). Direkt auf den Datenheader 
folgen die codierten Datenbytes 
und ihre Checksum (= Prüfsum- 
me). Zum Schützen der Diskette 
wird die Formatierungsroutine des 
DOS so geändert, daß andere 
Adreß- und Datenheader benutzt 
werden. Schreib- und Leserouti- 
nen werden an das neue Format 
angepaßt. Der Vorteil dieses 
Schutzverfahrens ‚liegt in der un- 
veränderten Benutzerschnittstelle. 
Anwenderprogramme müssen 
nicht an das neue Betriebssystem 
angepaßt werden. Da diese Ände- 
rung im Betriebssystem relativ 
leicht zu bewerkstelligen ist, gehö- 
ren neue Daten- und Adreßheader 
inzwischen zum Standardkopier- 
schutz für Disketten. Ein neues 
Format allein ist jedoch noch kein 
zuverlässiger Schutz. Viele Nibble- 
Kopierprogramme können heutzu- 
tage solche Disketten ohne Pro- 
bleme duplizieren. 


Gerade Sektornummern: Die 
Adreßfelder bieten jedoch noch ei- 
nen weiteren Ansatzpunkt für 
Schutzverfahren, nämlich die hier 
abgelegte Sektornummer. Stan- 
dard-DOS 3.3 verwendet eine 
Sektornumerierung von 0-15. Es 
ist jedoch möglich, alle Sektor- 
nummern in gerade Zahlen zu ver- 
wandeln. Ein derart geändertes 
Format besitzt eine Sektornume- 
rierung von 0-30, die ein unverän- 
dertes DOS nicht mehr verwalten 
kann. 


Geänderte Timingbytes: Einige 
Softwarehersteller ersannen noch 
grundlegendere Formatänderun- 
gen. Die gesamten Informationen 
eines Tracks bestehen aus einer 
riesigen Folge von Bits. Sollen Da- 
ten gelesen werden, so befindet 
sich der Schreib/Lesekopf irgend- 
wo auf einem der Sektoren der 
gewünschten Spur, wobei zu- 
nächst noch nicht bekannt ist, um 
welchen Sektor es sich handelt. Es 
ist nicht einmal sichergestellt, daß 
der Lesevorgang mit einem Byte 
beginnt. Um zu gewährleisten, daß 
alle acht gelesenen Datenbits auch 
zu demselben Byte gehören, muß 
das DOS den Lesevorgang mit der 
Kopfposition synchronisieren. 
Hierfür werden die „Timing-“ oder 
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„Sync-Bytes“ verwendet. Diese 
speziellen Bytes bestehen im Ge- 
gensatz zu allen anderen Daten- 
bytes aus zehn Bits. Die beiden 
niederwertigsten Bits sind jedoch 
auf Null gesetzt. DOS 3.3 verwen- 


det als Timingbyte $FF 
(%1111111100). Nullbits zu An- 
fang eines Bytes sind nicht zuge- 
lassen. Deshalb startet der Con- 
troller erst mit dem Einlesen eines 
neuen Bytes, wenn er eine 1 als 
Datenbit auf der Diskette erkennt. 
Diese Hardware-Eigenschaft wird 
in Verbindung mit den Timingbytes 
zum Synchronisieren benutzt. Auf 
einem Track befinden sich minde- 
stens fünf Timingbytes vor jedem 
Adreß- und Datenfeld. Startet das 
DOS den Lesevorgang, so erreicht 
der Kopf irgendwann ein Feld von 
Timingbytes. Da die Leseroutinen 
noch nicht synchronisiert sind, be- 
ginnt der Controller irgendwo in- 
nerhalb des ersten Timingbytes 
Datenbits von der Diskette zu le- 
sen. Da diese Spezialbytes eine 
Länge von 10 Bits besitzen, jedoch 
nur 8 Bits gelesen werden, ist der 
Lesevorgang des nächsten Ti- 
mingbytes genau um zwei Bits ver- 
schoben. Dieser Vorgang wieder- 
holt sich so lange, bis eines der 
beiden Nullbits zu Anfang des neu- 
en Bytes steht. Nullbits am Beginn 
eines Bytes werden jedoch vom 
Controller ignoriert. Daher ist das 
nächste gelesene Byte ein kom- 
plettes Timingbyte. Von da an wer- 
den die acht Einserbits der Timing- 
bytes gelesen und die beiden fol- 
genden Nullbits übersprungen. 
Der Controller und die Leserouti- 
nen sind jetzt synchronisiert. Bei 
Datenbytes, die diesen Sync- 
Bytes folgen, ist sichergestellt, daß 
alle acht Bits wirklich zum gleichen 
Byte gehören. Sync-Bytes müssen 
bezüglich ihrer Bitkombination be- 
sonderen Ansprüchen genügen. 
Daher kommen außer $FF nur 
noch wenige andere Bytes in Fra- 
ge. Wird nun statt $FF ein anderes 
Byte als Timingbyte benutzt, ist 
das Standard-DOS nicht mehr in 
der Lage, seine Leseroutine mit 
der Diskette zu synchronisieren. 
Kein einziges Byte kann von einer 
so geschützten Diskette gelesen 
werden. 


Spezielle Datenbytes: Diese Ei- 
genheit des Controllers wird auch 
bei anderen Schutzverfahren aus- 
genutzt. Spezialroutinen schreiben 
ein Byte innnerhalb des Datenfel- 
des im Format eines Timingbytes, 
d.h. zwei zusätzliche Nullbits am 
Ende des Bytes. Übernimmt der 


Controller dieses Byte von der Dis- 
kette, liest er die ersten acht Bits 
und überspringt die beiden folgen- 
den Nullbits. Sie werden einfach 
ignoriert, da der Lesevorgang erst 
beim nächsten Einserbit wieder 
beginnt. Kopierprogramme über- 
tragen dieses Spezialbyte als nor- 
males Datenbyte auf die Kopie. Die 
beiden Nullbits fehlen. Standard- 
bytes werden innerhalb von 32 
Maschinenzyklen auf die Diskette 
geschrieben. Zum Schreiben von 
Timingbytes benötigt das DOS auf 
Grund der Länge von zehn Bits 40 
Zyklen. Werden normale Daten- 
bytes gelesen, erhält die Leserou- 
tine spätestens alle 32 Zyklen ein 
neues Byte von der Diskette. Ist 
die Leseroutine jedoch an dem 
Spezialbyte angekommen, tritt 
durch das Auslassen der zwei 
Nullbits eine kleine Verzögerung 
auf. Bei geschützten Programmen 
mißt ein mitlaufender Zähler die 
zum Lesen eines Bytes benötigte 
Zeit. Sollte diese Zeitverschiebung 
nicht auftreten, muß es sich um 
eine Kopie handeln. 


Synchronisierte Tracks: Diese 
bildeten die Grundlage der näch- 
sten Methode. Bei der Erstellung 
der Originaldisketten formatieren 
geeignete Routinen die Diskette 
so, daß die einzelnen Tracks eine 
bestimmte physikalische Anord- 
nung zueinander besitzen, was 
z.B. bedeutet, daß jeweils die er- 
sten Sektoren eines Tracks — von 
der Diskettenmitte aus gesehen — 
in einer Reihe liegen. Beim Boot- 
vorgang liest das Programm Track 
0 bis zu einer bestimmten Stelle 
ein und verschiebt dann den 
Schreib/Lesekopf auf Track 1. Oh- 
ne auf die Sektornummer zu ach- 
ten, wird jetzt auf Track 1 der näch- 
ste Sektor gelesen. Waren Track 0 
und Track 1 einwandfrei synchroni- 
siert, hat die Software auf Track 1 
auch den richtigen Sektor gelesen. 
Auf diese Weise läßt sich ein gan- 
zes Anwenderprogramm in den 
Speicher laden. Synchronisiert ein 
Kopierprogramm beim Formatie- 
ren die Kopie nicht, läßt sich das 
Original zwar einwandfrei kopie- 
ren, jedoch geht die physikalische 
Anordnung der Tracks zueinander 
verloren. Diese Verschiebung der 
Tracks auf der Kopie im Gegensatz 
zum Original bewirkt, daß beim 
Bootvorgang falsche Sektoren ge- 
lesen werden. 


Nibble-Counting: Auf einer ande- 
ren Hardware-Eigenschaft beruht 


das „Nibble-Counting“. Da nur 
sehr wenige Laufwerke mit genau 
der gleichen Umdrehungsge- 
schwindigkeit arbeiten, differiert 
beim Formatieren die Tracklänge 
von Laufwerk zu Laufwerk. Nibble- 
Counting benutzt diese Tatsache, 
um Original und Kopie zu unter- 
scheiden. Bei Erstellung der Origi- 
naldisketten werden durch noch- 
maliges Einlesen nach der Forma- 
tierung für jeden Track die Längen 
notiert und Timingbytes sowie Da- 
ten- und Adreßfelder mitgezählt. 
Daher auch der Name „Nibble- 
Counting“. Die so erhaltenen In- 
formationen werden auf der Dis- 
kette abgelegt. Während des Boot- 
vorgangs überprüft die Software 
die Längen der Tracks und ver- 
gleicht sie mit den auf der Diskette 
gespeicherten. Dies ist ein eindeu- 
tiges Entscheidungskriterium, da 
es recht unwahrscheinlich ist, daß 
die Tracklängen von Kopie und 
Original übereinstimmen. 
Synchronisierte Tracks und Nib- 
ble-Counting gelten heute bereits 
als veraltet, da viele Nibble-Kopier- 
programme inzwischen in der Lage 
sind, diese beiden Schutzmetho- 
den zu umgehen. 


Halbspuren: Laut Handbuch be- 
sitzen die Laufwerke des Apple Il 
35 Spuren, auf denen der Schreib/ 
Lesekopf positioniert werden kann. 
Doch die Diskettenstation ist 
durchaus in der Lage, 70 Spuren 
anzufahren. Diese Spuren — Halb- 
spuren genannt — besitzen im Ge- 
gensatz zu den 35 Standard-Spu- 
ren nur den halben Abstand zuein- 
ander. Wie ist das möglich? In den 
Laufwerken befindet sich ein 
Schrittmotor, der zur Bewegung 
des Kopfschlittens dient. Um den 
Schlitten von einer der 35 Spuren 
zur nächsten zu verschieben, wer- 
den normalerweise vier Schritte 
ausgeführt. Werden statt dessen 
nur zwei ausgeführt, befindet sich 
der Kopf in einem Bereich zwi- 
schen zwei der 35 Spuren. (Tech- 
nische Details hierzu im Peeker, 3/ 
85, S. 10ff.) 

Halbspuren können jedoch nur be- 
dingt verwendet werden. Durch 
den Aufbau des Schreib/Lesekop- 
fes ist es nicht möglich, eine Spur 
und die unmittelbar benachbarte 
Halbspur zu beschreiben. Über- 
sprechen und Datenverlust wären 
die Folgen. Trotzdem ist es mög- 
lich, Halbspuren zur Datenspei- 
cherung zu benutzen. Vorausset- 
zung hierfür ist, daß direkt benach- 
barte Tracks nicht benutzt werden. 
Eine Möglichkeit wäre, alle Spuren 
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einfach um eine Halbspur nach in- 
nen zu verschieben. Die Diskette 
besitzt dann zwar immer noch 35 
Spuren, aber normales DOS findet 
keine einzige mehr. 


Spiraltracks: Halbspuren sind die 
Grundlage eines ausgefeilten Ko- 
pierschutzes, der es erlaubt, alle 
70 Spuren der Disk-Il-Laufwerke 
durch die Verwendung von Spiral- 
tracks auszunutzen: Um Über- 
sprechen zu vermeiden und Da- 
tensicherheit zu garantieren, muß 
der Abstand zwischen zwei ver- 
wendeten Spuren mindestens eine 
ganze Spur betragen. Zu diesem 
Zweck übertragen spezielle Routi- 
nen die Daten nach einem ganz 
bestimmten Schema auf die Origi- 
naldisketten. Bei der Erstellung 
des Originals wird ca. 1/3 der er- 
sten Halbspur beschrieben und 
der Kopf auf die benachbarte Halb- 
spur gefahren. Hier wird nun wie- 
der 1/3 der Spur beschrieben. Die- 
ser Vorgang wiederholt sich solan- 
ge, bis alle Daten auf die Diskette 
übertragen sind. Die Halbspuren 
scheinen sich spiralförmig zur Dis- 
Kettenmitte hin zu winden. Daher 
auch der Name Spiraltracks. Die- 
ses Schutzverfahren besitzt be- 
reits eine hohe Kopiersicherheit 
gegenüber modernen Nibble-Ko- 
pierprogrammen, da diese zwar 
Halbspuren lesen, jedoch meist 
nur komplette Halbspuren schrei- 
ben können. Wird eine Diskette 
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Halbspur für Halbspur kopiert, zer- 
stört der Kopf durch seine Breite 
beim Schreiben jeweils die be- 
nachbarten Halbspuren. Einige 
wenige Programme können nach 
umfangreichen Parameterände- 
rungen oder Programmierung auf 
dieses Format eingestellt werden. 
Der Zeitaufwand für diese Ände- 
rungen ist jedoch sehr hoch. Die 
Implementierung dieses Schutz- 
verfahrens ist recht aufwendig, da 
neue Schreib/Leseroutinen erfor- 
derlich sind und die Anwendersoft- 
ware speziell hierfür angepaßt wer- 
den muß. Die Kopiersicherheit, die 
Spiraltacks und ähnliche Verfahren 
bieten, rechtfertigt jedoch den ho- 
hen Aufwand. 


Pseudo-Sektoren: Neue Disket- 
tenformate liegen auch der Ver- 
wendung von Pseudo-Sektoren 
zugrunde. Ein Pseudo-Sektor be- 
steht wie ein normaler DOS-Sektor 
aus einem Adreßfeld und dem dar- 
auffolgenden Datenfeld. 342 co- 
dierte Datenbytes sind in einem 
Standarddatenfeld abgelegt. Im 
Gegensatz dazu kann das Daten- 
feld eines Pseudo-Sektors bis zu 
5K an codierten Daten enthalten. 
Ein Sektor dieser Länge belegt 
dann einen vollständigen Track. Es 
ist fraglich, ob sich der Aufwand für 
diese Art von Kopierschutz lohnt. 
Zum einen ist die Programmierung 
der neuen Schreib/Leseroutinen 
sehr zeitintensiv. Zum anderen 
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stellen Pseudo-Sektoren kaum 
noch eine Schwierigkeit für ein gu- 
tes Nibble-Kopierprogramm dar. 


Magnetschicht-Zerstörung: Zeit- 
weise versuchten Softwarehäuser, 
Kopierschutzverfahren durch Be- 
schädigung des Originals zu reali- 
sieren. An einer bestimmten Stelle 
der Diskette wurde durch einen 
Kratzer die Magnetschicht des Da- 
tenträgers zerstört. Dadurch ent- 
stand ein Bereich auf der Diskette, 
der sich weder initialisieren noch 
beschreiben ließ. Die geschützte 
Software versuchte einen der zer- 
störten Tracks zu formatieren. Ge- 
lang dies ohne Probleme, mußte 
es sich folglich um eine Kopie han- 
deln. Die zerstörten Tracks des 
Originals hätten nicht einwandfrei 
initialisiert werden können. Die 
zerkratzte und dadurch sehr un- 
ebene Magnetschicht der Diskette 
griff jedoch die empfindlichen 
Schreib/Leseköpfe der Laufwerke 
an. Laute Schabgeräusche und ho- 
he Abnutzung der Köpfe waren die 
Folgen. Grund genug, dieses 
Schutzverfahren wieder aufzu- 
geben. 

Der Trick mit der Unformatierbar- 
keit mancher Teile der Originaldis- 
kette wurde jedoch in einem ande- 
ren Kopierschutzsystem wieder 
aufgegriffen. Vor der Erstellung 
des Originals magnetisiert eine 
spezielle Hardware einige Tracks 
der verwendeten Diskette so stark, 
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daß alle Formatierungsversuche 
mit dem schwachen Magnetfeld 
des Schreib/Lesekopfes erfolglos 
bleiben. Geschützte Programme 
versuchen diese Spuren auf der 
Diskette, von der sie gestartet wur- 
den, zu formatieren. Ein Schreib- 
oder Lesefehler bei diesem Vor- 
gang bestätigt, daß es sich um das 
Original handelt. 


Protection-Keys: Einen ganz an- 
deren Weg gehen manche Soft- 
warehersteller, indem sie sog. 
„Protection-Keys“ verwenden. Bei 
diesen Keys handelt es sich um 
spezielle Bausteine, in denen eine 
bestimmte Information fest „ver- 
drahtet“ ist. Der Key muß in den 
Game-I/O-Port des Apple Il ge- 
steckt werden, damit das Pro- 
gramm diese Information abfragen 
kann. Mit jedem Originalprogramm 
wird genau ein Key geliefert. Damit 
ist die Frage nach der Kopierbar- 
keit der Software hinfällig. Das Pro- 
gramm läuft nur mit diesem einen 
Key oder gar nicht. Oft sind diese 
Bausteine in ein Gehäuse einge- 
schweißt oder mit Epoxydharz aus- 
gegossen. Protection-Keys sind 


durch ihren Aufbau eine teure, 
aber auch sichere Kopierschutz- 
methode. Das Hauptanwendungs- 
gebiet für diese Art des Schutzes 
liegt bei kommerzieller Software, 
die in geringeren Stückzahlen zu 
höheren Preisen produziert wird. 










n Track 15 


63 


Peeker-Sammeldisketten 





Peeker 
Sammeldiskette 
Heft 1 und 2, 1984 





Disk #1 





Einzelbezug DM 28,— 
Fortsetzungsbezug DM 20,— 

(Jederzeit kündbar, jedoch mindestens 
6 Disketten) 

(* = nur auf Diskette, nicht im Peeker 
gelistet! Seitenangaben beziehen sich 
auf Beginn des Listings) 

Hüthig Software Service 

Postfach 102869 - 6900 Heidelberg 1 


Disk# 1 
(Heft 1+2, 1984) 


T.DISASSEMBLER.65C02 (1/84, S. 15) 
DISASSEMBLER.65C02 


T.ACCEL.WAIT (1/84, S. 22) 
ACCEL.WAIT 
T.ACCEL.BOOT 
ACCEL.BOOT 
ACCEL.LC.KOPIERER 
T.ACCEL.LC.KOPIE 
ACCEL.LC.KOPIE 
T.ACCEL.ROM.KOPIE1 
ACCEL.ROM.KOPIE1 
T.ACCEL.ROM.KOPIE2 
ACCEL.ROM.KOPIE2 


TURTLE.GRAFIK.MIT.REMS (1/84, S.29) 
TURTLE.GRAFIK.OHNE.REMS * 


DOUBLE.LORES.SOFTSWITCH.DEMO 
(1/84, S. 37) 
DOUBLE.LORES.APPLESOFT.DEMO 
AMPER.DOUBLE.LORES.DEMO 
T.AMPER.DOUBLE.LORES 
AMPER.DOUBLE.LORES 
T.DOUBLE.LORES 

DOUBLE.LORES 


HIRES (1/84, S. 41) 
T.PRINTHIRES 
PRINTHIRES 


DHGR.APSOFT.DEMO (2/84, S. 30) 
AMPER.DOUBLE.HIRES.BAS 
AMPER.DOUBLE.HIRES 
T.AMPER.DOUBLE.HIRES 
DHGR.LINEPLOTTER 





INSTRING.TEST (2/84, S. 43) 
INSTRING.OBJ 
T.INSTRING.OBJ 
INSTRING.LISA.SOURCE 


LOESCHEN.EINES.ARRAYS 
(2/84, S. 52) 


ULTRATERM.ENGLISCH * (2/84, S. 60) 
ULTRATERM.DEUTSCH * 


PRIMZAHLEN.OVERMEYER * 
(2/84, S. 70) 

PRIM.OBJO * 

PRIM.OBJ1 * 

PRIM.TEST * 
PRIM.TOOLKIT.SOURCE * 


Disk #2 
(Heft 1-2, 1985, DOS-Format) 


T.RAMDISKLC (1-2/85, S. 14) 
RAMDISKLC 


T.IBS.RAMDISKDRIVER (1-2/85, S. 20) 
IBS.RAMDISKDRIVER 
T.AP20.RAMDISKTEST 
AP20.RAMDISKTEST 


T.QUICKCOPY (1-2/85, S. 26) 
QUICKCOPY 
QUICKCOPY.PUFFER 
PRODOS.COPYA 
T.PRODOS.COPYOBJ * 
PRODOS.COPYOBJ 
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Sammeldiskette 
Heft 1 und 2, 1985 
DOS 3.3 


Disk #2 





PRODOS.PATCH (1-2/85, S. 31) 


T.APPLESOFT.FRE (1-2/85, S. 36) 
T.LC.FRE 

LC.FRE 

FRE.TEST 

T.RAM.FRE * 

RAM.FRE 


T.SCHIRMDISK (1-2/85, S. 44) 
SCHIRMDISK.LISA.SOURCE 
SCHIRMDISK 


T.VIDEXT 
VIDEXT.LISA.SOURCE 
VIDEXT 


GETPAS (1-2/85, S. 70) 
T.GETPAS.ASS * 

GETPAS.ASS 
GETDOS.PASCAL.SOURCE 
COPYDUPDIR.PASCAL.SOURCE 


PRODOS.EDITOR.MACROS 
(1-2/85, S. 86) 


Disk #3 
(Heft 1-2, 1985, CP/M-Format) 


STEUER.84 (1-2/85, S. 47) 
PASS.BAS 
MENUE.BAS 
HELP.BAS * 
A.BAS 
B.BAS 
0.BAS 
D.BAS 
E.BAS 
F.BAS 
G.BAS 
H.BAS 
I.BAS 

J.BAS 
K.BAS 
L.BAS 
M.BAS 
N.BAS 


Disk #4 
(Heft 3-4, 1985) 


TESTGENERATOR (3/85, S. 26) 
SAETZE 

BAHNFAHRT * 

zu.” 

TUN.UND.SOLLEN * 

IRGEND * 


MULTIPRECISION (3/85, S. 32) 


T.WS.TRANSFER (3/85, S. 36) 
WS.TRANSFER 
T.WS.TRANSFER.2 * 
WS.TRANSFER.2 * 

GETCPM 


PRIM.0.SC.SOURCE (3/85, S. 62) 
PRIM.O.BIN 

PRIM.1.5SC.SOURCE 

PRIM.1.BIN 

PRIM.FP 


ACCELERATOR.ABSTELLEN 
(3/85, S. 66) 


T.WILDCARD.TEST * (3/85, S. 72) 
WILDCARD.TEST1 * 
T.WILDCARD.TEST2 * 
WILDCARD.TEST2 * 


XPLOT.DEMO (4/85, S. 18) 
XPLOT.ROUTINE 
T.xPLOT.ROUTINE 


MENUE.GENERATOR (4/85, S. 22) 
T.MACROS.65C02 (4/85, S. 31) 


TERMINAL (4/85, S.36) 
TERMINAL.B 
T.TERMINAL.B 


CAT.ARRAY (4/85, S. 44) 
CAT.SAVER 
EINTRAG.SUCHER 
EINTRAG.ANALYSE 
PRODOS.READER 
T.PRODOS.READER.OBJ 
PRODOS.READER.OBJ 


MOUSESTUFF.PASCAL.SOURCE 
(4/85, S. 51) 
MOUSE.ASS.PASCAL.SOURCE 
TESTMOUSE.PASCAL.SOURCE 
DRAWMOUSE.PASCAL.SOURCE 


INALL.DATA (4/85, S. 70) 
SCREEN80.DATA (4/85, S. 33) 
SCREEN80.SAVER (4/85, S. 76) 


Disk #5 
(Heft 5, 1985, DOS-Format) 


T.FM.BSP (5/85, S. 9) 
FM.BSP 


T.SLOTRAMDISK (5/85, S. 13) 
SLOTRAMDISK 
SLOTRAMDISK.HELLO 


PLOT.2.O (5/85, S. 20) 
TELOLB 

PLOT.B 
PLOT.PROTECTOR 


T.CONVERTS560 (5/85, S. 26) 
CONVERT560 
CONVERT560.DEMO 


T.EDA (5/85, S. 33) 
EDA 


TRANSCEND.PASCAL.SOURCE 
(5/85, S. 36) 


T.BLOCKTRACER (5/85, S. 51) 
BLOCKTRACER 
T.BLOCKTRACER!1 
BLOCKTRACER1 


FORMAT.LC (5/85, S. 56) 
FORMAT.LC.START 
T.DISKDRIVER.DEMO 
DISKDRIVER.DEMO 


RANDOM.DEMO (5/85, S. 69) 
COLUMN80.DEMO 


SUPERDUMP.EPSON (6/85!) 
SUPERDUMP.IMAGEWRITER 
SUPERDUMP.BILD 
T.SUPERDUMP 
SUPERDUMP 

EPSON 

IMAGEWRITER 
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INTUS - Lernprogramme 


in deutscher Sprache für Apple Ile und Ilc. 


® Rechtschreib-Trainer. 4 Übungsarten, 16 Bereiche, 
über 4000 Wörter und Kurzsätze. Sehr wirkungsvoll, 
gute Erfolge bei Legasthenie DM 125,- 


@ Wortschatztrainer Englisch und Französisch, je DM 98,- 
@© Maschineschreiben wie der Blitz. 20 Lektionen. DM 188,— 
® Basic-Lernprogramm. 14 Lektionen. DM 295,— 
@ Lesen wie der Blitz.Wirkungsvolles Lesetraining. DM 98,- 
® Kinderschule. Beliebte Vorschulprogramme. DM 69,- 


@ Demo-Disk. mit Kostproben aus 9 Programmen. DM 10,- 
Katalog gratis. 


INTUS SOFTWARE 


Kaiserstraße 21 - 7890 Waldshut-Tiengen - Telefon 07751-7920 


gez NICROMINT 


| \4Y\ıcromın 
gs LLTREFFER 
en LASAR 16 


IBM 264 K, TEACB FDD, Contr. 
color Graphik, Multifunktionscard, 


Tastatur, Monitor 4.990; 





e_) 
UT 


Netzteil 15 A 


LASAR ZE 


— Apple comp. 64 K + 


1.290; 


6502 + Z8O A 
80 Z sw Tastatur 
Außerdem volles Rückgaberecht innerhalb 
14 Tagen ohne Begründung. 
Apple 








@ Mehrzweckklappgehäuse lt. Abb. 179,— | 179,— 
® Schaltnetzteile Apple5 A/IBM 15A 115,— | 350,— 
® Profitastatur dtsch. LASAR 2000 299,— | 299,— 
@ Interface ab 95,— | 400,— 
@ Monitor 22 Mhz incl. Fuß, bernstein 299,— | 299,— 


Prompte Belieferung von 100 m? Lagerfläche. 
Kostenlose Tiefstpreishändlerliste noch heute schrift- 
lich anfordern — großes Angebot an IBM-Comp. 


Generalimporteur MICROMINT Computer GmbH 
Hochdahler Straße 151, 4006 Erkrath 2 
Telex 8589305 mcm 


= 02104/33024 


Der nächste Peeker 
Heft 6/1985 


erscheint am 
20.5.1985 
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andauhnunko 


Bismarckstr. 67, D-1000 Berlin 12 (030) 342 88 00 









Hilfsmittel 


Gratis! 


AppleQuick 
Das handliche Nachschlagewerk 
für häufig gebrauchte Adressen 
und Befehle! 

64 Seiten über Applesoft, DOS, 
ProDOS, Pascal, CP/M. 
Gleich anfordern! 


% Ablage Bearbeiten Zeichensatz Größe 















8  pandabooks 


Eine detaillierte Beschreibung der 
Apple Il-Schaltungen. 

wenn Sie Ihren Apple selbst repa- 
rieren, Interface-Karten oder 
Schaltungserweiterungen entwerfenf 
oder einfach nur besser über das | 
Innenleben Ihres Apples Bescheid 
wissen wollen - dieses Buch bietet ki 
Ihnen eine Fülle an Informationen: Er 
Schaltpläne und Zeitdiagramme, 4 ! ||| LI) Me 
Theorie und praktische Tips. 


















Apple Il 
Schaltpläne 
Winston D. Gayler 







ISBN: 3-89058-012-2 
215 Seiten, DIN A4 









Das Assembler-Lehrbuch für BASIC-F 








Apple Il Kenner. 
Assembler- Roger Wagner, der Autor vieler be- 
Programmierung kannter Software-Pakete, schrieb 


eine monatliche Kolumne über As- 
sembler-Programmierung in der 
Apple-Zeitschrift SOFTALK. 

Der vorliegende BAnd faßt diese ss 
Reihe, korrigiert und erweitert, zu- 
semmen: Eine stufenweise Einfüh- 
rung in die Befehle und Strukturen 
| der 6502 Assemblersprache, mit nn 
vielen Beispielen von der einfochen I 
Tongenerierung bis zum Disketten- 
zugriff. 

3-89058-003-3 277 Seiten DM 48,-- 
komplett mit Disk DM 89,-- 

















| Roger Wagner 









Ein Simulationsprogramm, das 
Sie in das Innere des 6502- 
Mikroprozessors führt. Sie se- 
hen auf dem Bildschirm, wie 

Hi die einzelnen Instruktionen in 

"4 Zeitlupe ausgeführt werden, wie 
sich die Register und die Flags 
verändern. Ein unverzichtbares 
Hilfsmittel beim Erlernen der 
Assembler-Programmierung - 
danach ein wertvolles Werkzeug 


Visible Computer 
Charles Anderson 

beim Testen Ihrer eigenen Pro- d 

gramme. 


Komplett mit einem 6502-Editor/Assembler, deutschem Hand- 
buch (150 Seiten) und über 30 Beispielprogrammen. 
3-89058-019-X 
















DM 129,-- 





In allen Buchhandlungen und Computershops oder direkt von: 
Pandabooks, Bismarckstr. 67, 1000 Berlin 12, (030) 342 88 00 
BEE Bestellcoupon BBBBBBBEBBBEBEBBEBE 
O V-Scheck liegt bei 
(spesenfreie Lieferung) 
O per Nachnahme 
(zzgl. Versandspesen) 








Name: 
Anschrift: 






Menge Titel 


= Österreich: OÖlandesverlag, Linz * Schweiz : Thali AG, Hitzkirch © 
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Apple-Kompatible 


von Hans-Kurt Kuhn 


Ananas, Banana, Boscop oder we- 
niger botanisch und etwas weniger 
an Apple erinnernd Atlas, Lazar, 
Pluto oder manchmal auch schlicht 
Computer — so heißen einige Bei- 
spiele aus der „Familie“ der Ap- 
ple-Nachbauten oder vornehmer 
der „Apple-Kompatiblen“. Kompa- 
tibel wird dabei in dem Sinne ge- 
braucht, daß auf Original-Apple-II- 
(Plus)-Geräten verwendbare Soft- 
ware hier ohne Änderungen lauffä- 
hig ist. 


Wie Kompatible entstehen 

Als Steven Jobs und Stephen 
Wozniak 1976 der große Wurf ge- 
lang, mit gängigen Mikrochips und 
einem handelsüblichen Prozessor 
auf einer Platine von kaum mehr 
als DIN-A4-Größe einen universell 
erweiterbaren Personalcomputer 
namens Apple Il zu realisieren, war 
ihnen wohl nicht bewußt, daß die- 
ser genial-einfache Aufbau einen 
hohen Tribut fordern würde: Wenn 
jemand die Kosten der verwende- 


ten Bausteine zusammenrechnet, . 


kommt er sehr leicht darauf, daß 
sich ein solcher Apple Il für sehr 
viel weniger Geld nachbauen läßt, 
als Apple für das Original benötigt. 
Man fotografiere also eine Original- 
Apple-Platine (den Apple-Firmen- 


aufdruck kann man dabei abdek- 
ken), stelle auf die heute jedem 
Elektronikfan geläufige Art die 
neue = alte Platine her, bestücke 
diese nach Vorbild, baue eventuell 
auch noch das Apple-Netzteil nach 
und setze das Ganze in eine auf 
der Abkantbank hergestellte Alu- 
miniumkiste mit Fernosttastatur — 
und fertig ist der Urvater des „Ap- 
ple-Kompatiblen“, also eines in 
elektronischer Hinsicht sklavi- 
schen Original-Nachbaus. 
Offensichtlich haben auch bei uns 
in Deutschland einige in der Elek- 
tronikszene beheimatete (Neu-) 
Unternehmer diese Gelegenheit 
ergriffen, denn bei etlichen der 
heute erhältlichen „Kompatiblen“ 
handelt es sich noch um solche 
nachempfundene Apple Il, deren 
rein elektronische Nachgestaltung 
wohl zulässig ist. 


F8-ROM 

Kritisch wird es bei der in PROMs 
oder EPROMs untergebrachten 
Firmware aus dem Hause Apple 
bzw. Microsoft (das F8-ROM ist 
von Apple, der Applesoft-Interpre- 
ter von Microsoft), da hier mög- 
licherweise das Urheberrecht tan- 
giert wird: So bieten die Hersteller 
der „Kompatiblen“ ihr Produkt 
meist ausdrücklich „mit leeren 
EPROMs, ohne Firmware“ an. 
Dem zum „Kompatiblen“ fest Ent- 


schlossenen ist auch dies kein 
Hindernis, sofern er über einen 
Bekannten mit Original-Apple-Il 
und EPROM-Brenner sowie 
Kenntnissen in der Maschinenpro- 
grammierung verfügt. Die erforder- 
lichen Speicheradressen verrät 
freundlicherweise das Apple-Hand- 
buch, das auch ein vollständiges 
Assemblerlisting des Autostart-F8- 
ROMs enthält. 


Sofern es sich also um einen sol- 
chen Kompatiblen handelt: Was 
sollte an ihm schlechter sein als an 
einem Original? Höchstens die 
nach einiger Zeit zum Prellen nei- 
gende Billigtastatur. Aber auch hier 
schafft der Import Abhilfe: Seit 
einiger Zeit sind Originaltastaturen 
bei uns erhältlich, und das so 
preiswert, daß sich die Verwen- 
dung anderer Tastaturen kaum 
noch lohnt. 


Die Versuche, selbstverfaßte Firm- 
ware in den EPROMs abzulegen, 
scheinen bei der Käuferschaft auf 
nicht sehr viel Gegenliebe zu sto- 
Ben, da sie dann z.B. auf das lieb- 
gewordene selbststartende FB8- 
ROM oder gar auf Applesoft-Basic 
verzichten und sich mit FORTH 
oder ähnlichem bescheiden müs- 
sen. Hier tut sich ein Feld für As- 
semblerprogrammierer und Hard- 
warekenner auf, die das F8-ROM 
so umschreiben, daß es selbststar- 
tend wird, ohne als Autostart- 
ROM-Kopie gelten zu müssen. 


Disk-Controller 

Wenden wir uns den Peripheriege- 
räten und Erweiterungen zu: Die 
von Apple verwendeten Shugart- 
Laufwerke sind bis auf die An- 
steuerungselektronik des Schreib/ 
Lesekopfes als preiswerte Import- 
Allzwecklaufwerke erhältlich und 
brauchen lediglich mit der richtigen 
Steuerung, dem Analogboard, 
ausgerüstet zu werden. Diese 
Analogboards wurden anfangs auf 
die gleiche Weise wie die Mother- 
boards kopiert. Mithin sind diese 
Laufwerke, bis auf den Namen, 
Apple-Drives. Anders verhält es 
sich bei den Japan-Importen von 
Billig-Drives, meist als Slimline-Ty- 
pen erhältlich: Hier ist das Analog- 
board in die Antriebselektronik in- 
tegriert, wie auch die Fernost-Im- 
porte der Disk-Drive-Controller an- 
scheinend Eigenentwicklungen 
sind. Dies gilt auch für die impor- 
tierten Zusatzkarten, also 16K-Er- 
weiterungen, 80-Zeichenkarten, 
Printer-Interfaces und Z80-Karten, 
wobei allerdings einige nicht ganz 
geklärte Inkompatibilitäten auftre- 
ten: So funktioniert z.B. der in der 
ersten Peeker-Ausgabe geschil- 
derte ProDOS-Patch ab Adresse 
$2659: EA EA, der die Namen- 
sprüfroutine lahmlegen soll, in Ver- 
bindung mit einem Original-Apple- 
F8-ROM (!) auf meinem Kompati- 
blen durchschlagend: Derart ge- 
patchtes Original-ProDOS steigt 
aus, während es auf dem Apple Il 
läuft! (Es mußte $265B heißen und 


MMU 2.0 


Memory Managements 
Utilities 

für die Apple lle 64K-Karte 

DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0"- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder IlIc 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 
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Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lie 64K-Karte 


von. Stiehl 


1984, Diskette und Manual, DM 48,— 
ISBN 3-7785-1022-3 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 





INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 
von U. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7785-1021-5 


„Input 2.0“ liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u.a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) — Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag — Füllflag — Lösch- 
flag - Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder IIc; fer- 
ner Apple II+ im 40-Zeichenmodus 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heidelberg 
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wurde im Peeker 2/84, S. 10 korri- 
giert. Anm.d.Red.) 


80-Zeichenkarte 

Ein Problem ganz besonderer Art 
hinsichtlich der Kompatibilität wirft 
die 80-Zeichenkarte auf: Sie wird 
fast ausnahmslos als videxkompa- 
tibel angepriesen, ist es aber in 
den seltensten Fällen. 

Nach meiner Zählung gibt es min- 
destens vier Versionen: 

— Die erste Karte hat keinen Soft- 
switch, so daß für die Grafik das 
Ausgangskabel umgesteckt wer- 
den muß. 

— Die zweite Version besitzt einen 
sog. Softswitch, ist aber deswegen 
nicht zur Videxkarte mit Softswitch 
kompatibel, weil sie nicht durch die 
Befehlsfolge Ctrl-Z,1, sondern nur 
durch Reset bzw. durch PR#0: 
IN#0: HGR in den 40-Zeichenmo- 
dus zurückschaltet, was sehr selt- 
sam ist. Außerdem verwendet sie 
einen anderen Adreßbereich zur 
Bildschirmspeicherung, der die 
Programmierung von Hardcopy- 
Routinen erschwert. Hinzu kommt, 
daß durch eine Taktfrequenz in der 
Nähe des Motherboardquarzes 
Störungen erzeugt werden, die 
sich als schwingende Bildränder 
bemerkbar machen. 

—- In der dritten Fassung ist die 
Taktfrequenz auf 18 MHz erhöht; 
der Speicherbereich ist noch im- 
mer verlegt mit der Folge, daß in 
Pascal die Funktion „Keypress” 
nicht funktioniert, und auch Ctrl- 
Z,1 geht noch nicht. 

— In der mittlerweile erhältlichen 
vierten Version sollen nun auch 
diese Nachteile behoben sein; Ge- 
naueres kann ich im Moment noch 
nicht sagen, da ich bei dem Ver- 
such, eine solche Karte zu Test- 
zwecken zu erwerben, mit drei 
Karten aus drei Quellen beliefert 
worden bin, die eine Gemeinsam- 
keit haben: Sie sind sämtlich de- 
fekt! 

Die vorangehenden Schilderungen 
zeigen, daß der 80-Zeichenkarte 
bei der Anschaffung eines Kompa- 
tiblen besondere Aufmerksamkeit 
zu widmen ist, da sie einen beson- 
ders neuralgischen Punkt darstellt. 


Disk-Drives 

Um gleich bei unliebsamen Erfah- 
rungen zu bleiben: Eine weitere 
Schwachstelle sind die Billigdrives 
älterer Bauart. Die Laufwerke des 
Typs FD 525-A von Shonan Data 
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(von der Firma Lech-Technics 
früher beim Atlas 1 eingesetzt) in 
Zusammenhang mit den alten Ei- 
genbau-Controllern dieser Firma 
machen die Spitze der Reparatu- 
ren aus (der mir zugängliche Erfah- 
rungskreis umfaßt 10 Geräte). Im 
Gegensatz dazu lassen die Geräte 
mit Shugart-Drives oder die neue- 
ren Fernost-Importe mit Zentrier- 
knebel hinsichtlich Zuverlässigkeit 
keine Wünsche offen. So hat obige 
Firma ihr Folgemodell Atlas 1 mit 
Slimlines des Typs FD-LDD 103 
von Resco ausgerüstet; dieses 
von mir getestete Gerät arbeitet 
seit vier Monaten ebenso einwand- 
frei wie der mir zugängliche Kom- 
patible Circle 100 mit Distar-Slimli- 
nes oder dessen größerer Bruder 
Nova II mit einem TEAC- und ei- 
nem Siemens-Laufwerk, beide 
letzteren vertrieben von der Firma 
Schmitz Datentechnik in Geilenkir- 
chen. 


Netzteil 
Bei den meisten Kompatiblen, die 
heute erhältlich sind, werden Hard- 


wareverbesserungen durchge- 
führt, die über das Original hinaus- 
gehen: 


Das im Original-Apple-I| wie in äl- 
teren Nachbauten als Ofen wirken- 
de längsgeregelte Netzteil, das in 
Verbindung mit sommerlichen 
Temperaturen häufig wegen der 
gleich benachbarten 16K-Karte ei- 
ne Quelle von unerklärlichen „Un- 
regelmäßigkeiten“ darstellt (Hitze- 
stau), ist normalerweise durch ein 
kaltes Taktnetzteil ersetzt. 


Motherboard-Änderungen 

Ein Versuch, die mechanisch anfäl- 
ligen Slots bzw. Kartenanschlüsse 
auszumerzen, wird in neueren 
Kompatiblen in der Form unter- 
nommen, daß der Z80-Prozessor 
mitsamt Zubehör und der komplet- 
te Disk-Controller sowie die 16K- 
Erweiterung mit auf das Mother- 
board übernommen werden. Da 
der Z80 den Platz der EPROMSs auf 
dem Board übernimmt, werden 
diese bedauerlicherweise auf einer 
Einsteckarte in Slot O angeschlos- 
sen, was diese Lösung teilweise 
wieder aufhebt. 

Die wohl modernste Variante des 
Apple-Kompatiblen ist irgendeine 
der obigen Motherboardversionen 
mitsamt Controller in einem |BM- 
ähnlichen Gehäuse mit externer 
Speichertastatur und fest gespei- 
cherten Basic-, DOS- und CP/M- 
Befehlen (s.o. Atlas 1 und Nova Il). 
Ein so modernisierter Apple oder 


kurzber 


Kompatibler stellt zusammen mit 
der verfügbaren, qualitativ hoch- 
wertigen Software, insbesondere 
den Compilern zu allen gängigen 
Sprachen, eine Anlage dar, die es 
sich auch auf längere Sicht nicht zu 
ersetzen lohnt, zumal sich die Prei- 
se für eine ähnlich universelle Ver- 
besserung in schwindelnden Hö- 
hen bewegen. 


Reparatur-Service 

Zum Abschluß sei daran erinnert, 
daß ein Kompatibler auch gele- 
gentlich den Geist aufgibt, sogar 
weit öfter als das Original, wenn er 
von einem Billiganbieter mit not- 
wendig hohem Umsatz stammt, 
der keine besondere Sorgfalt auf 
eine Endkontrolle legt. Da man mit 
dem Kompatiblen nicht zum Ap- 
ple-Händier um die Ecke gehen 
kann, ist es gerade hier besonders 
wichtig, den Verkäufer und Repa- 
raturdienst in nächster Nähe zu ha- 
ben, sich vor dem Kauf von seiner 
Seriosität und Zugänglichkeit zu 
den eigenen Problemen zu über- 
zeugen und so kurze Reparatur- 
zeiten sicherzustellen, damit mög- 
lichst alle auftretenden Fehler 
schon in der Gewährleistungsfrist 
behoben werden. 


Versandgeschäft 

Unter den im Versandgeschäft täti- 
gen Händlern von Kompatiblen 
sind einige schwarze Schafe zu 
finden, die nach dem Motto ver- 
senden: „Ob mein Gerät noch 
Fehler hat, wird der Kunde schon 
herausfinden.“ Der hat dann aller- 
dings Mühe, bei vierwöchigen (und 
längeren) Reparaturzeiten alle 
Fehler innerhalb der ersten sechs 
Monate nach Kauf beheben zu las- 
sen. Wenn man nicht selbst betrof- 
fen ist, so ist die Lektüre der Hilfe- 
und Entrüstungsschreie in der AU- 
GE-Zeitschrift zu diesem Thema 
mitunter sehr erheiternd, für den 
Betroffenen allerdings eine teuer 
bezahlte Erfahrung. 

Die in letzter Zeit zunehmende 
Konkurrenz unter den Händlern 
von Kompatiblen wird wohl ein ent- 
sprechendes Verhalten begünsti- 
gen und das Geschäft beleben, so 
wie die Konkurrenz der Kompati- 
blen in der Vergangenheit mit dazu 
beigetragen hat, daß die Äpfel 
(-Preise) nicht in den Himmel ge- 
schossen sind. 


Redaktioneller Nachtrag 
Der obige Beitrag deckt sich nicht 
in jeder Hinsicht mit der Meinung 
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Ausgabe und 
Eingabe mit 


TYPETERM® 
APPLE IVlle 


Das bedeutet: Computer- 
Textverarbeitung von der 


Schreibmaschinentastatur! 


CE-50mit DM 1348,— 
TYPETERNM incl. MWSt. 





























® 
QUALITÄT AUS ERSTER HAND. 


Ein starkes Interface für starke 
Maschinen! Alle Cursor- und CTL- 
Befehle. 2k ROM auf der Karte für 
DOS, ZDOS, CP/M, Pascal. Slot 
wählbar. Alle Features: Hoch-/Tief- 
stellen, autom. Unterstreichen, var. 
Zeichen- u. Zeilenabstände, autom. 
Papiereinzug, Auto CR/LF usw. usw. 
Ausführl. Handbuch. 


TYPETERM gibt's für alle CE- u. 
EM-Maschinen ab CE-50! Bitte 
Apple II bzw. Ile angeben. 


Das gesamte Programm günstig! 
Versand NN + Porto + 6,- oder 
Vorkasse netto portofrei (Inland), 
Kto. 147 70-306 PGiroA Han. 
Handbuch TYPETERM vorab 10,— 
(Anrechnung). TYPETERM® - ein 
Produkt von 


0) 
interloom xex« mcnes om 
————— Psstl., 3004 Isernhagen 


electronic Telefon 05139-87393 






der Peeker-Redaktion. Das Thema 
Kompatible läßt sich m.E. auf 3 
Punkte reduzieren: 


Kompatibilitätsbegriff: Der Be- 
griff der Kompatiblität ist durch die 
neueren Modelle Ile und Ilc aufge- 
weicht worden, weil Apple Il Plus, 
lle und Ilc untereinander nicht 
mehr 100% kompatibel sind. Bei- 
spielsweise läuft der Applewriter 
Ile weder auf dem || Plus noch dem 
IIc und ist somit weder aufwärts- 
noch abwärtskompatibel. Zieht 
man Zusatzkarten in die Betrach- 
tung mit ein (z.B. 80-Zeichenkar- 
ten), so ist das Ende der Kompati- 
bilität sehr schnell erreicht. Bei- 
spielsweise läuft der Applewriter 
Ile nicht mit der Ultraterm, und in 
den IIc passen mangels Steckplät- 
zen ohnehin keine Zusatzkarten. 
Ein Apple-Kompatibler ist deshalb 
bestenfalls ein Apple-Il- oder Ap- 
ple-II-Plus-Kompatibler (obgleich 
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ich inzwischen auch einen Apple- 
Ile-Kompatiblen gesehen habe). 


Rechtslage: „Abkupfern“ galt 
schon immer als verpönt oder zu- 
mindest als wenig kreativ. Insofern 
werden Kompatible moralisch stets 
einen schweren Stand haben. 
Demgegenüber ist die juristische 
Situation in der Bundesrepublik 
nicht immer eindeutig, weil es zwei 
prinzipielle Typen von Kompatiblen 
gibt, nämlich erstens die „Nur- 
Kompatiblen“ als exakte Kopien 
von Gehäuse, Platine und ROMs 
sowie zweitens die „Auch-Kompa- 
tiblen“, auf denen man zwar auch 
Apple-Il-Plus-Programme laufen 
lassen kann, die jedoch zahlreiche 
zusätzliche Features aufweisen 
(z.B. Prometric). Die Nur-Kompati- 
blen sind wahrscheinlich unzuläs- 
sig, während die Auch-Kompati- 
blen insbesondere wegen abwei- 
chenden Gehäuses, neuer Platine 
und anderer ROMs wohl unstrittig 
sind. 


Preissituation: Das Original wird 
einer Kopie stets vorgezogen. 
Wohl jeder würde Butter kaufen, 
wenn die Margarine nicht billiger 
wäre. Mancher Kompatibler (aus 
der Kategorie der Nur-Kompati- 
bien) kostet nur ein Drittel oder gar 
ein Viertel dessen, was heute der 
Apple || Plus kosten würde. Wer 
einen derart preiswerten Nur- 
Kompatiblen erwirbt, darf sich nicht 
wundern, wenn erstens die Verar- 
beitung weniger gut ist und zwei- 
tens der Service teils zu Wün- 
schen übrigläßt. Irgendwo muß 
notwendigerweise gespart worden 
sein. Trotzdem bin ich felsenfest 
davon überzeugt, daß es kaum 
Nur-Kompatible geben würde, 
wenn die Preiskluft zwischen Ori- 
ginal und Nachbau nicht derart 
eklatant wäre. Hier bewahrheitet 
sich die alte Werbeweisheit „Es 
war schon immer etwas teurer, ei- 
nen besonderen Geschmack zu 
haben.“ 

us 
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Hotline 


von Ulrich Stiehl 


Aufgrund der in den USA üblichen 
Gepflogenheiten von Computerfir- 
men und -clubs sowie durch Veröf- 
fentlichungen in anderen deut- 
schen Zeitschriften und nicht zu- 
letzt aufgrund eigener Testanrufe 
nahm ich irrtümlicherweise an, daß 
auch Endabnehmer (= Nicht-Wie- 
derverkäufer) die Hotline der Firma 
Apple in München schriftlich oder 
telefonisch in Anspruch nehmen 
dürften. Dies ist jedoch nicht der 
Fall, wie mir Apple-München in ei- 
nem persönlichen Gespräch mit- 
teilte, auch wenn — wie aus den 
nachfolgenden Zuschriften ersicht- 
lich ist -— aus Kulanzgründen gele- 
gentlich Anfragen von Privatperso- 
nen beantwortet wurden. Insoweit 
bitte ich die Irreführung unserer 
Leser zu entschuldigen und stelle 
im Einvernehmen mit der Firma 
Apple folgendes klar: 


Endabnehmer sollten die Firma 
Apple nicht direkt anrufen, sondern 
sich vielmehr indirekt an einen der 
ca. 300 lizenzierten Händler (= 
Vertragshändler) wenden, die über 
das ganze Bundesgebiet verteilt 
sind. Welcher Händler lizenziert 
ist, können Sie einem regelmäßig 
aktualisierten Händlerverzeichnis 
entnehmen, das beispielsweise 
am Apple-Stand auf den Compu- 
ter-Messen erhältlich ist. Die in 
einschlägigen Apple-Anzeigen 
veröffentlichte Telefonnummer 
(„Apple Aktuell“ usw.), auf die sich 
eine Vielzahl unserer Leserzu- 
schriften bezog, ist nicht im Sinne 
einer technischen, telefonischen 
Auskunft zu verstehen. Der Aus- 
druck „irgendwelche“ in dem Satz 
„Falls Sie irgendwelche Fragen 
haben, Apple Aktuell hat ein Ohr 
für Sie“ ist restriktiv im Sinne „ir- 
gendwelcher nicht-technischer“ 
und und nicht im Sinne „irgend- 
welcher technischer“ Fragen zu 
interpretieren. 


Zusammenfassend gilt also: Wenn 
Sie eine Fachfrage haben, so wen- 
den Sie sich an denjenigen Ver- 
tragshändler, bei dem Sie den Ap- 
ple kaufen wollen oder gekauft ha- 
ben. Sollte der Vertragshändler 
keine Antwort wissen, so darf er 
und nur er allein sich an die aus- 
schließlich für Händler gedachte 
Stelle von Apple-München (= 
Händler-Hotline) wenden. 

Im übrigen sollten nur solche Fra- 
gen gestellt werden, die sich auf 
Original-Apple-Hardware und 


-Software beziehen. Dies ist ver- 
ständlich, denn weder die Apple- 
Händler noch die Firma Apple sind 
für Fremdprodukte zuständig. Fer- 
ner muß betont werden, daß man 
keinen Rechtsanspruch auf die Be- 
antwortung von Fachfragen hat. 
Dies läßt sich schon daraus ablei- 
ten, daß Original-Appleprodukte 
meist (bzw. bei den mir vorliegen- 
den Produkten immer) mit einem 
„Ausschluß jeder Garantie und 
Haftung“ (Überschrift im Klappen- 
text) verkauft werden. So heißt es 
beispielsweise im _„Benutzer- 
Handbuch“ zum Apple IIc: „Apple 
Computer gibt keine Garantien...in 
bezug auf die in desem Handbuch 
beschriebene Software, ihre Quali- 
tät, Durchführbarkeit, Verkäuflich- 
keit oder Verwendbarkeit für einen 
bestimmten Zweck... Das Risiko 
für die Qualität und Durchführbar- 
keit liegt ganz beim Käufer. Sollten 
sich die Programme nach ihrem 
Kauf als fehlerhaft herausstellen, 
trägt der Käufer (und nicht Apple- 
Computer, deren Distributor oder 
Einzelhändler) die gesamten Ko- 
sten für alle notwendigen Arbeiten, 
Reparaturen oder Korrekturen und 
jedwede daraus gefolgten oder 
daraus resultierenden Schäden.“ 
Die Lösung technischer Probleme 
durch den Apple-Händler ist damit 


oo um Hr 


eine Frage des Wollens und nicht 
des Müssens. 


Problematischer wird es, wenn Sie 
bei einem Apple-Händler ein 
Nicht-Apple-Produkt, z.B. einen 
Erphi-Controller als Fremdhard- 
ware oder Visicalc als Fremdsoft- 
ware, erwerben. Da das Nicht-Ap- 
ple-Produkt in Verbindung mit dem 
Apple-Produkt verwendet wird, 
können auftretende technische 
Probleme an der Interaktion zwi- 
schen beiden liegen. Ein einfaches 
Beispiel: In einer anderen Redak- 
tion unseres Verlages steht ein 
Original-Apple-Il-Plus mit Original- 
Disk-Il-Drives der Firma Apple, 
aber mit einer Nicht-Original- 
Language-Card, alles zusammen 
erworben bei der Firma Süß in 
Ludwigshafen, die damals noch 
Vertragshändler war. Auf dieser 
Konfiguration läßt sich das Origi- 
nal-ProDOS nicht booten. Mit dem 
Nachbau-Patch aus Peeker 1-2, 85 
ließ sich dann ProDOS auf dem 
Original-Apple starten! In solchen 
Fällen sollte der Händler, bei dem 
Sie das Fremdprodukt erwerben, 
am besten vor dem Kauf in die 
Pflicht genommen werden, da sich 
nachträglich keiner mehr zuständig 
fühlt. Darüber hinaus beachten 
Sie, daß Fremdproduzenten gele- 


DO 

ORG 
TAY 
LDA 
EOR 
STA 
RTS 


d 
$254C 

‚Alte 
($28) ,Y ;Routine 
+$89 
($28),Y 


Applewriter IIe Patch für Ilc 


a) Bei $524F Sprung zum Patch 
b) Bei $52F® Patch-Routine 


* 


52FB: 
S2F3: 
B2F5: 
S2F8: 
S2FA: 
S2FB: 
SZFE: 
5391: 
5393: 
5396: 
5398: 
5399: 
530A: 


H52F® 


INVERSE 


NORMAL 


CHAR 
CURSOR 


ORG 
JMP 
FIN 


ORG 
CMP 
BNE 
LDA 
STA 
RTS 
STA 
LDA 
STA 
LDA 
EOR 
RTS 
HEX 
HEX 


$524F 
H52F® 


‚Sprung zum 
‚Patch 


$52F9 
CURSOR 
NORMAL 
CHAR 
($28),Y 


‚Neue 
‚Routine 


CHAR 
CURSOR 
($28) ,Y 
CHAR 
+$80 


01V) 


208 ;definierbar 


Den Applewriter-IIe-Patch für den IIc bin ich Ihnen noch 
aus Peeker 3/85, S. 35 schuldig. Während man die inversen 


Menüleisten mit einem Diskeditor ändern kann, 


muß die 


Cursorroutine wegen des Mauszeichensatzes umgeschrieben 
Problematisch ist lediglich, 


werden. 
wo man diese Routine hinlegt. 


Dies ist nicht schwer. 


Bei $52F® ist noch Platz im 


Falle der Version OBJ.APWRTG2E. U.Stiehl 





Peeker 5/85 








gentlich echte Garantien abgeben. 
So heißt es beispielsweise in den 
„Gewährleistungs-Bedingungen“ 
der Firma Microsoft zu dem Micro- 
soft-Basic für den Macintosh: 
„..„.Für die auf der Diskette gespei- 
cherten Informationen gewährlei- 
stet Microsoft ihre Übereinstim- 
mung mit den veröffentlichten und 
bei Abnahme des Programms gül- 
tigen Programm-Spezifikationen. 
..Wird ein die Gebrauchs-Taug- 
lichkeit des Microsoft-Produktes 
im Vergleich zur jeweils gültigen 
Programm-Spezifikation bzw. Lei- 
stungsbeschreibung und Bedie- 
nungsanleitung wesentlich ein- 
schränkender Mangel innerhalb 
dieser Frist (d.h. 60 Tage nach Ein- 
gang des mangelhaften Produktes) 
nicht behoben, so kann der Käufer 
nach seiner Wahl die Herabset- 
zung des Kaufpreises oder die 
Rückerstattung des Kaufpreises 
gegen Rückgabe des mangelhaf- 
ten Microsoft-Produktes fordern.“ 
Hier ist also die Beseitigung we- 
sentliicher technischer Mängel 
nicht eine Frage der Kulanz, son- 
dern der Gewährleistungspflicht. 
Aus der Fülle der Zuschriften zum 
Thema Hotline greifen wir nur die- 
jenigen Briefe heraus, zu denen 
wir unmittelbare Problemlösungen 
anbieten können. 


Apple-lic-Dienstprogramme 

Ich möchte Ihrem Aufruf folgen 
und meine Erfahrungen mit der 
Apple-Hotline kundtun. Im Sep- 
tember des letzten Jahres habe ich 
mir einen Apple Ilc zugelegt und 
fing an, mich damit zu beschäfti- 
gen. Natürlich hatte ich einige Fra- 
gen und ging damit zuerst zu mei- 
nem Applehändler: 

— Wie programmiere ich die Maus 
in Assembler? 

— Wie konfiguriere ich die seriellen 
Schnittstellen ohne Systemdienst- 
programme? 

— Wie benutze ich die Maus unter 
DOS 3.3 zusammen mit der 80- 
Zeichenkarte? 

Der Händler bekam eine Liste der 
Fragen von mir und versprach mir, 
die Antworten zu besorgen. Nach 
drei Wochen erhielt ich die Nach- 
richt, daß er bei Apple keine Ant- 
worten auf diese Fragen erhalten 
habe. Inzwischen habe ich mich 
mit den Büchern von Ulrich Stiehl 
beholfen und lasse die Maus Maus 
sein. 

Einen Tip kann ich anderen Apple- 


IIc-Besitzern noch geben: Wenn 
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man nur ein Laufwerk hat, dann 
sollte man zum Kopieren einzelner 
Files unter ProDOS den FILER und 
unter DOS 3.3 FID zusammen mit 
einem RAM-Disk-Driver benutzen. 
Die Apple-Systemdienstprogram- 
me booten aus dem ProDOS-Re- 
bootprogramm einschließlich 
PRODOS in ca. 31 Sekunden (ab 
Return). Der FILER benötigt als 
Systemprogrammm mit PRODOS 
ca. 10 Sekunden, also ein Drittel 
der Zeit. Ulrich Kußmann, Bonn 
(Anm.: Ein schnelles PRODOS- 
.FID erscheint in einem er näch- 
sten Preker-Hefte. Aufgrund einer 
flüchligen Analyse kann man die 
zeitatıfwendiae Konfigurierung der 
Schnittstellen offenbar umgehen, 
indem man die Routinen und die 
„Screenhole“-Parameter direkt in 
den Bereich $0000-$1FFF der 
64K-Karte schiebt. Eine spezielle 
Utility ist in Vorbereitung. Einstwei- 
len kann man sich mit dem Pro- 
gramm AUXMOVER der „MMU 
2.0”-Diskette behelfen. us) 


Imagewriter-Sonderzeichen 

Ein Freund von mir besitzt, genau 
wie ich, einen Imagewriter. Jetzt 
soll dieser ja (laut Handbuch) einen 
frei definierbaren Zeichensatz von 
ca. 170 Zeichen besitzen. Also 
probiert man die Steuersequenzen 
aus dem Handbuch aus und ist 
deprimiert, weil nichts läuft. Mein 
Freund erkundigte sich beim 
Händler, woran das liegt, worauf 
dieser antwortete, man könne nur 
ca. 16 Zeichen definieren. Näch- 
ster Anruf: Hotline. Antwort: Man 
weiß es auch nicht genau, aber 
irgendeine Privatfirma habe für DM 
198,- ein Programm herausge- 
bracht, mit dem man wenigstens 
96 Zeichen definieren kann. Im üb- 
rigen schickte der Hotline-Herr 
noch ein Programm für die Hires- 
Grafik des Imagewriter. Gerhard 
Schneider, Unterleinleiter 

(Anm.: Für den Imagewriter gibt es 
u.a. von der Firma Hunstig, Mün- 
ster, ein Programm zur Erzeugung 
von Sonderzeichen. Es heißt 
DMP-Charger. Die Anzahl der zu- 
lässigen Zeichen hängt vom Spei- 
cherplatz im Druckerpuffer = Zei- 
chenpuffer ab. Aufwendige Zei- 
chensätze wie z.B. der neue Frak- 
tur-Zeichensatz der Firma Hunstig 
benötigen mehr Speicherraum (1 
Frakturzeichen = 2 normale Zei- 
chen), womit dann insgesamt we- 
niger Zeichen definiert werden 
können. us) 
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RANDOM.DEMO 


199 
11® 
12 
139 


140 
159 
169 


17 


180 
199 
200 
219 


REM Random-Zahlen-Generator 
REM von T.Hare, J.Russ, G.Faulkner, David Sparks 
REM Zitiert aus 'Call Apple', 1/1983, S. 3ßff. 
REM Gestrafft und ab $ß30® neu assembliert von 
U.Stiehl 
REM a) Zufallszahl initialisieren mit CALL 768 
REM b) Neue Zufallszahl mit R = USR (B) abrufen 
REM c) Wenn B = 1, dann R = Fließkommazahl 
im Bereich ® bis 1 
REM d) Wenn B > 1, dann R = Ganzzahl 
im Bereich ® bis B-l 
DATA 169,76,133,10,169,27,133,11,169,3 
DATA 133,12,160,4,185,201,0,57,198,3 
DATA 153,194,3,136,208,244,96,165,157,240 
DATA 89,165,162,16,3,76,153,225,169,3 
DATA 162,203,32,43,235,162,243,14,195,3 
DATA 46,196,3,46,197,3,46,198,3,56 
DATA 173,195,3,233,155,72,173,196,3,233 
DATA 219,72,173,197,3,233,255,72,173,198 
DATA 3,233,3,72,144,18,104,141,198,3 
DATA 1904,141,197,3,1904,141,196,3,194,141 
DATA 195,3,176,4,194,194,194,194,232,208 
DATA 192,169,3,133,158,169,255,133,159,169 
DATA 219,133,160,169,155,133,161,169,9,133 
DATA. 162,133,170,133,171,169,129,133,165,133 
DATA 157,173,.198,3, 183,166, 173,197,3,133 
DATA 167,173,196,3.1323,168,173,195.3,133 
DATA 169,32,46,232,32,105,234,173,203,3 
DATA 56,233,129,13,204,3,13,205,3,13 
DATA 206,3,208,1,96,160,3,169,293,32 
DATA 127,233,76,35,236,0,0,0,0,154 
DATA 219,255,3,0,90,0,0,® 
RESTORE : FOR X = 768 TO 975: READ Y: POKE X,Y: NEXT 
REM *%** Demo *x% 
CALL 768:Z = 5ß@@009:B = 100: DIM R%(B - 1): REM Z+l 
Random-Zahlen im Bereich ® bis B-l 
HOME : PRINT "5®@0000 ZUFALLSZAHLEN...": 
Z:R = USR (B):R%(R) = R%(R) + 1: NEXT 
FOR X = ® TO 99:X$ = STR$ (R%(X)):L = LEN (X$): PRINT 
LEFT$ (" "5 - L);: PRINT X$;: NEXT : REM 
Prozentuale Verteilung 
PRINT : FOR X = ® TO 99:P = R%Z(X) x» 100 « 2 / B: 
INT (P):S =SGN (P):Y= P-S x 198: PRINT " 
NEXT 
REM Abweichung -3,74% bis +2,86% vom Mittelwert 599® 
bei 500000 Zahlen 


FOR X = ® TO 
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199 
11® 
129 
13 
140 
159 
169 
17 
189 
199 
209 
219 
229 


230 
240 


259 
260 


270 
289 


299 
309 





REM 8@-Z/Z-IIe/IIc-VTAB-HTAB-Demo/14.93.85/U.Stiehl 
AH = 36:AV = 37: REM HTAV + VTAB 40 Z/Z 

BH = 1403:BV = 1531: REM HTAB + VTAB 89 2/Z 

DIM A1l%(23,79): DIM A2%(23,79) 

DIM B1%(23,79): DIM B2%(23,79) 

PRINT CHR$ (4)"PR#3": HOME 

REM Cursor-Position peeken 

FOR V = ß TO 23: FOR H = ß TO 79 

Al%(V,H) = PEEK (AH) :A2%(V,H) = PEEK (AV) 
Bl%(V,H) = PEEK (BH):B2%(V,H) = PEEK (BV) 
PRINT '"x'";: NEXT H: NEXT V 

REM 408 Z/Z + 80 Z/Z gegenüberstellen 
HOME : PRINT : PRINT "4®-CH 4d-CV 
80-CV": POKE 34,2 

FOR V = ® TO 23: FOR H = ß TO 79 

PRINT Al%(V,H);: POKE BH,1®: PRINT A2%(V,H);: POKE 
BH,2®: PRINT B1l%(V,H);: POKE BH,3®: PRINT B2%(V,H) 
NEXT H: PRINT : NEXT V 

TEXT : HOME : PRINT : PRINT "Von unten nach oben...": 
REM Cursor-Position poken 

FOR V = 24 TO 1 STEP - 1: FOR H = 88 TO 1 STEP - 1 
VTAB V: POKE BH,H — 1: PRINT "x";: REM So wird's 
gemacht! 

NEXT H: NEXT V 

POKE 2939, ASC ("x") + 128: REM VTAB 24, HTAB 89 
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Echte Zufallzahlen 


Seit der Gründung der Zeitschrift 
Peeker bin ich regelmäßiger Leser. 
Über keine andere Publikation zum 
Apple-Computer bin ich so erfreut 
wie durch Ihre. Endlich eine Com- 
puterzeitschrift, die nicht mangel- 
haftes Wissen von anderen abkup- 
fert und versucht, die Leser durch 
Basic-Müll in Rage zu versetzen, 
sondern vernünftig dokumentierte 
Assemblerlistings mit guten Be- 
schreibungen präsentiert, von de- 
nen man zu guter Letzt auch etwas 
lernen kann. Ich kaufte mir dann 
das von Ihnen geschriebene Buch 
Apple Assembler, vernünftigerwei- 
se nicht zu einem Horrorpreis wie 
viele andere Fachbücher. Der In- 
halt konnte mir schon weiterhelfen, 
obwohl ich noch nicht sehr lange in 
Assembler programmiere. Aller- 
dings komme ich mit dem Fließ- 
kommaakkumulator nicht zurecht, 
was auch mein Hauptanliegen dar- 
stellt. Ich benötige für ein Maschi- 
nenprogramm Zufallszahlen; so 
suchte ich mir die RND-Routine 
bei $EFAE heraus und konnte 
nachlesen, daß die ermittelte Zu- 
fallszahl in FAC gespeichert wird. 
Nach langen Versuchen auf mei- 
nem Apple Ile konnte ich noch im- 
mer keine Zufallszahl berechnen 
und später verwenden. So rief ich 
die Apple-Hotline an, die mich nur 
mit Telefonnummern von Apple- 
Vertragshändilern abspeiste. Nun 
glaube ich, daß nur Sie, der Autor 
des Buches, mir die Funktionswei- 
se und Handhabung des FAC er- 
klären kann, da ja sehr viele Routi- 
nen mit ihm arbeiten. Ich hoffe, daß 
sie mir diesbezüglich helfen kön- 
nen, und wünsche Ihnen weiterhin 
viel Erfolg mit Ihrer Zeitung. Oliver 
Mehl, Berlin 

(Anm.: Die RND-Funktion liefert 
nur Zufallszahlen für den „Haus- 
gebrauch“, d.h. nach einiger Zeit 
treten immer wieder dieselben Fol- 
gen auf. In „Call A.P.P.L.E.“, Heft 
1/83, S. 30ff. hat ein Mathemati- 
ker-Team einen definitiven Algo- 
rithmus vorgestellt. Wir zitieren ne- 
benstehend diesen Algorithmus in 
einer gestrafften und leicht umge- 
schriebenen Form. Das RANDOM- 
DEMO berechnet 500.000 Zufalls- 
zahlen, die nahezu optimal verteilt 
sind. us) 


FLASH und POKE 36, HTAB 
nach PR#3 

Zu ihrer Umfrage in Peeker 3/85 
über die Benutzung der Hotline 
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möchte ich Ihnen mitteilen, daß ich 
diese Hotline schon in Anspruch 
genommen habe und sehr davon 
enttäuscht bin. Ich besitze seit En- 
de letzten Jahres einen Apple IlIc, 
der wie bekannt einen 40- und ei- 
nen 80-Zeichen-Modus hat. Nun 
versuchte ich Material über Ap- 
plesoft-Basic zu bekommen, was 
auch gelang. In dem Buch über 
Applesoft-Basic wird beschrieben, 
daß auf Speicheradresse 36 (dezi- 
mal) die horizontale Cursorposition 
abzufragen ist. Nun gab mein Ap- 
ple mir für jede Position auf dem 
Monitor die horizontale Cursorpo- 
sition O an. Der Händler konnte auf 
meine Anfrage nicht befriedigend 
antworten und verwies mich an die 
Apple-Hotline. Dort meldete sich 
zunächst ein automatischer Anruf- 
beantworter, der mich nach mei- 
nen Problemen und nach meiner 
Telefonnummer, zwecks Rückruf, 
fragte. Etwas später kam dann 
auch der Rückruf. Nach einigen 
Unklarheiten wußte man nun end- 
lich, was ich wollte, und nachdem 
ich ein kurzes Prüfprogramm für 
die Abfrage der horizontalen Cur- 
sorposition durchgegeben hatte, 
stellte sich heraus, daß die Spei- 
cherbelegung bei 40- und bei 80- 
Zeichen-Modus geringfügig unter- 
schiedlich ist. Wo die horizontale 
Cursorposition im 80-Zeichen-Mo- 
dus abzufragen ist, konnte mir al- 
lerdings nicht gesagt werden. 
Ebenso warum der FLASH-Befehl 
beim Apple Ilc nicht arbeitet. Man 
konnte mich nur an die AUGE-Ver- 
einigung und auf die Tatsache, daß 
die Hotline eigentlich nur für Händ- 
lerfragen gedacht wäre, verweisen. 
Ulrich Kulemann, Aachen 


(Anm. zum FLASH-Problem: Die- 
ser ist beim „alternativen“ Zei- 
chensatz, den man bei 80-Zei- 
chendarstellung normalerweise 
stets benutzt, zugunsten inverser 
Kleinbuchstaben nicht vorgese- 
hen. FLASH in Großbuchstaben ist 
trotzdem möglich durch folgende 
Routine: 


10 PRINT CHR$ (4) "PR#3” 

20 POKE 49166, O0: REM Aktiviert 
80-Z/Z-FLASH-Zeichensatz 
30 POKE 50, 127: PRINT 
"FLASH": POKE 50, 255: 

PRINT "NORMAL” 


Anm. zum HTAB-Problem: Eine 
definitive Lösung des HTAB-Pro- 
blems nach PR#3 können Sie dem 
nebenstehend abgedruckten CO- 
LUMN80.DEMO entnehmen. us) 
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Indizes und Exponenten beim 
Imagewriter 

Die DIP-Schalter-Stellung, die ich 
normalerweise beim Imagewriter 
benutze, ist swi1: -1 und -2 open, 
-3 bis -6 closed, -7 und -8 open; 
sw2: -1 und -2 closed, -3 und -4 
open. Schalter sw1 -5 wird nun bei 
abgeschaltetem Gerät in Position 
open gebracht, dann das Gerät an- 
schalten. Nun boote ich mit der 
Imagewriter-Toolkit-Diskette (wird 
beim Kauf des Geräts mitgeliefert) 
und wähle Punkt 5 des Menüpro- 
gramms aus (Download super and 
subscripts). Der Schreibkopf im 
Imagewriter reagiert darauf mit ei- 
nem kurzen Ruck. Mit Option 6 
(Quit) verläßt man das Toolkit-Me- 
nü (es erscheint das Basic-U auf 
dem Bildschirm) und bootet jetzt 
mit der Applewriter-Ile-Diskette 
(Imagewriter natürlich nicht ab- 
schalten, da die eingespeicherten 
Sonderzeichen sonst gelöscht 
werden). 

Aus dem Schreibprogramm kön- 
nen jetzt die Sonderzeichen über 
die Sequenz Ctri-V ESC ' (Apo- 
stroph neben der Delete-Taste, 
ohne Shift) angesteuert werden. 
Zum normalen Zeichenfont kehrt 
man mit der Sequenz ESC $ Ctrl-V 
zurück. 

Beispiel: Chemische Formel für 
Wasser: H,O. Einzutippen: „H 
Ctrl-V ESC ’ 2 ESC $ Ctrl-V O“. 
Das ESC erscheint auf dem Bild- 
schirm als schwarzes Ä auf hellem 
Grund. Welche Tasten man drük- 
ken muß, um die kleinen Buchsta- 
ben und Ziffern zu erhalten, kann 
man im Imagewriter-Handbuch, 
Teil 2, S. 25 und 26 nachlesen. 
Das gleiche gilt auch für Exponen- 
ten. Hier muß man wirklich die Ta- 
belle im Handbuch konsultieren, 
denn die Zahlen erscheinen nicht 
als Zahlen, sondern als Zeichen, 
die man erhält, wenn man bei- 
spielsweise Shift-1, Shift-2 etc. 
drückt. Wenn die Zahlen von 1 bis 
0 z.B. als Exponenten erscheinen 
sollen, muß man !, “,#,$, %, &., ', 
(, ), $ eintippen, und so sieht das 
dann auch auf dem Bildschirm aus. 
Die oben beschriebenen Kontroll- 
sequenzen sind wieder ver- 
wendbar. 

Das ist natürlich für einen Mathe- 
matiker das absolute Chaos, wenn 
er am Bildschirm versucht, z.B. ei- 
nen wissenschaftlichen Text mit 
vielen Formeln Korrektur zu lesen. 
Auf dem Bildschirm sieht man 


nämlich xÄ'l"#Ä$/xÄ)8Ä$ = 
xÄ'!“4# = )8Ä$ für die zu drucken- 
de Formel 


x123/x90 — x123-90 


Man kann natürlich häufig vorkom- 
mende Sequenzen über den Kurz- 
textspeicher laden (Ctrl-G und ? im 
Applewriter). Hier darf man nicht 
vergessen, auch die Ctri-V-Se- 
quenz mit einzutippen. Sie er- 
scheint im Kurztextspeicher beim 
Eintippen als inverses V (Beim Eu- 
roplus braucht man bei der Ver- 
wendung des Kurztextspeichers, 
zumindest beim englisch geschrie- 
benen Applewriter, den ich hatte, 
das Ctrl-V nicht verwenden). Horst 
Ibelgaufts, München 


Exbasic Level Il 

Als Autor des Programms „EXBA- 
SIC LEVEL II“ in den Versionen für 
Apple II+, Ile und Basis 108 möch- 
te ich im beiderseitigen Interesse 
einer sachlich korrekten Berichter- 
stattung folgende zwei Punkte zu 
ihrem Testbericht im „Peeker“, 
Heft 1-2/1985 richtigstellen: 

1. Der „PRINT AT“ -Befehl arbeitet 
auch mit der 80-Zeichenkarte des 
Apple Ile uneingeschränkt, d.h. al- 
le 1920 Positionen können adres- 
siert werden (im Gegensatz zu 
„HTAB“ oder Komma-Formatie- 
rung). 

2. Exbasic Level Il wandelt genau- 
so wie der Applesoft-Interpreter 
bereits bei der Eingabe alle seine 
Befehle in Tokens um, die platz- 
sparend in einem Byte abgelegt 
werden. Die Tokens sind auch im 
Handbuch auf der Seite 99 und im 
Apple-Addendum auf Seite 24 
vollständig dokumentiert. Matthias 
Kapffer, Wiesbaden 


Mehr Mac 

Als erstes einmal ein Lob auf Ihre 
Zeitschrift! Sie ist gut gemacht und 
objektiv. Aber... In Ihrer Zeitschrift 
wird der Macintosh immer als 
„Schrott“ dargestellt. Gut, der Ma- 
cintosh hat große Fehler, aber was 
hilft es, wenn man immer nur sagt, 
daß das Betriebssystem schlecht 
ist, und daß der Macintosh nicht 
überzeugen kann etc. Wie wäre es 
z.B., wenn man neben aller Kritik 
auch die guten Seiten dieses 
Computers sieht und vor allem 
versucht die Fehler auszubügeln! 
Ich bin ein begeisterter Macintosh- 
User und auch mich nervt es, 


Peeker 5/85 





wenn der Mac „Jahre“ zum Kopie- 
ren langer Programme oder ganzer 
Disketten braucht; auch mich nervt 
es, wenn der Mac so lange rech- 
net, scrollt etc. 

Mein Vorschlag: 

1. Baldige Fortführung des (sehr 
guten und informativen) Teils „Mi- 
crosoft Basic leicht geMACht“. 

2. Ich schließe mich der Meinung 
von Herrn Herbert Schmidt an (Le- 
serbrief aus Heft 3/85) und würde 
es auch sehr begrüßen, wenn Sie, 
anschließend an Punkt 1, eine Rei- 
he über das MAC-Pascal bringen 
würden. 

3. Einführung einer „Tips- und 
Tricks-Ecke“, wo Vorschläge zur 
Verbesserung des Macs (soft- und 
hardwaremäßig) eingebracht 
werden. 

Insgesamt: Mehr Platz für den 
MAC in Ihrer Zeitschrift damit sei- 
ne fatalen Fehler radikal ausge- 
merzt werden! Sassan Tat, Düs- 
seldorf 

(Anm.: Im Augenblick ist noch 
nicht entschieden, ob im Anschluß 
an die Basic-Serie mit einer Mac- 
Pascal- oder 68000-Assembler- 
Serie begonnen wird. Peeker-Le- 
ser werden gebeten, uns Ihre Prä- 
ferenzen mitzuteilen. us) 


Mehr Apple Ilc 


Als ich vor kurzem von einem Be- 
kannten auf Ihre Zeitschrift auf- 
merksam gemacht wurde, habe ich 
mit Freude registriert, daß sie ei- 
nen guten Mittelkurs zwischen all- 
gemeinem Salonblatt und techni- 
scher Zeitschrift steuert und sich 
weitgehend dem großen Bereich 





der Apple-IlI-Rechner widmet. In 
diesem Zusammenhang darf ich 
erwähnen, daß ich eine Berichter- 
stattung über Entwicklungen, die 
speziell den Apple Ilc betreffen, 
sehr begrüßen würde. Meiner Ent- 
scheidung, einen Apple Ilc zu kau- 
fen, war eine Güterabwägung vOr- 
ausgegangen: Soll ich das offene 
System des Ile oder das kompakte 
System des |Ilc vorziehen? 
Schließlich überwog, wenn auch 
nur knapp, die Überlegung der 
Tragbarkeit des Apple IIc. Aus mei- 
nem unmittelbaren Bekanntenkreis 
weiß ich auch von etlichen weite- 
ren Fällen, wo einer einen Apple IlIc 
wegen der Möglichkeit, ihn an zwei 
Stellen (z.B. am Arbeitsplatz und 
zu Hause) zu benutzen, gekauft 
hat. Meine Bitte an die Redaktion 
des „Peeker“ wäre dann die, daß 
man, auch bei dem augenschein- 
lich geschlossenen System des 
IIc, nach Hardware-Entwicklungen 
(z.B. dem Anschluß einer Festplat- 
te oder einer Accelerator-Karte) 
Ausschau hält, die die immer grö- 
Ber werdende Gruppe der Apple- 
IIc-Besitzer interessieren würden. 
Dr. Raymond Hickey, Bonn 
(Anm.: Nach unseren Kenntnissen 
scheint man an einer Accelerator- 
Karte für den IIc noch nicht zu ar- 
beiten. Andere und größere Lauf- 
werke für den Ilc gibt es jedoch 
bereits, desgleichen Adapter, die 
die üblichen Ile-Disk-Controller er- 
setzen. Softwaremäßig unterschei- 
det sich der IIc vom Ile nur in Fein- 
heiten. So laufen beispielsweise 
fast alle Peeker-Programme auch 
auf dem Ilc. Eine entsprechende 
Aufstellung der abweichenden Mo- 
nitorroutinen wird in Kürze im 
Peeker veröffentlicht. us) 
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4 TESTbERICHTE 








Slim-Line-Laufwerk von Chinon 


In die Reihe der Slim-Line-Lauf- 
werke gesellt sich nun auch ein 
Importgerät, das sich unter ande- 
rem durch einen recht günstigen 
Preis von ca. DM 500,- aus- 
zeichnet. 

Das von der Firma D.O.S. in 
Schwäbisch-Hall importierte Chi- 
non-Laufwerk, das an den Apple- 
Controller angeschlossen werden 
kann, besitzt einen direkt angetrie- 
benen Disk-Teller in einem Alu- 


druckguß-Chassis, wobei im Ge- 
gensatz zur Disk II 40 Spuren be- 
arbeitet werden können. Laut Her- 
stellerangaben ist auch der Halb- 
spurbetrieb möglich. 

Die Zentrierung der Diskette er- 
folgt beim Schließen des Lauf- 
werks durch einen anfänglich et- 
was gewöhnungsbedürftigen 
Schnappverschluß, der während 
des Tests jedoch keine nachteili- 
gen Erscheinungen zeigte. Die 


b. w. 





Druckerumschaltung per Knopfdruck 


Häufig werden an einem Computer 
ein Matrix- und ein Schönschreib- 
drucker bzw. eine Schreibmaschi- 
ne betrieben. Beim Apple Il läßt 
sich dieses Problem mit Hilfe zwei- 
er Interfacekarten lösen. Sollen 
zwei Computer denselben Drucker 
teilen, so ist dies nur durch Um- 
stecken der Anschlüsse erreich- 
bar. Abhilfe schafft hier ein „Printer 
Interface Selector“, der den An- 
schluß von zwei Computern und 
zwei Druckern ermöglicht. Durch 
einfaches Umschalten können so- 
mit beide Computer beide Drucker 
benutzen. 

Die Firma Radio Shack vertreibt in 
den USA ein solches Gerät, mit 


dessen Hilfe zwei Parallelschnitt- 

stellen geschaltet werden können 

und das folgende Kombinationen 

unterstützt: 

— zwei Computer an 
Drucker 

— ein Computer an zwei Druckern 

— zwei Computer an zwei Druk- 
kern. 

Das Gerät, das in den USA 

$119.95 kostet, wird mit einem für 

Deutschland nicht verwendbaren 

120V-Netzteil ausgeliefert, das je- 

doch durch ein Netzteil mit 15V 

Ausgangsspannung ersetzt wer- 

den kann. 

Eine deutsche Bezugsquelle ist 

derzeit nicht bekannt. 


einem 


Fa 





Laufgeräusche des Disk-Tellers 
und der Schreib/Lesekopf-Mecha- 
nik erwecken einen vertrauens- 
würdigen Eindruck. 

Eine erhöhte Zugriffszeit gegen- 
über der Disk II konnte im Test 
nicht ermittelt werden, vielmehr 
war die benötigte Zeit zur Abspei- 
cherung mehrerer Binär-Files um 
ca. 5% länger als beim Apple- 
Laufwerk (die benutzte Diskette 


wurde auf dem Chinon-Laufwerk 
formatiert). 

Da kein Dauertest durchgeführt 
wurde, kann nichts über die langfri- 
stige Zuverlässigkeit dieses Lauf- 
werks ausgesagt werden. Der ins- 
gesamt robuste Eindruck läßt je- 
doch darauf schließen, daß bei 
dem vorliegenden Gerät das Preis/ 
Leistungs-Verhältnis ausgewogen 
ist. 





The Last Disk-Utility 


Ein umfangreicher Disketten- 
editor 


getestet von H. Grumser 


Die rege Benutzung von Disketten 
als Massenspeicher erfordert im- 
mer wieder die Bearbeitung einzel- 
ner Sektoren, sei es, um die Daten 
von teilweise beschädigten Disket- 
ten zu retten oder Änderungen 
vorzunehmen, die das Betriebssy- 
stem nicht unterstützt. Zu diesem 
Zweck bietet die Firma FOCUS 
Computer GmbH eine umfangrei- 
che Sammlung von Disketten- 
Hilfsprogrammen an, die sowohl 
auf Sektorebene als auch auf der 
Ebene der systemspezifischen 
Diskettenorganisation eine um- 
fangreiche Bearbeitung gestatten. 
Dieses unter dem Namen T.L.D.U. 
zusammengefaßte Programm un- 
terstützt die Betriebssysteme DOS 
3.3, UCSD, CP/M sowie ProDOS. 
Zur Bearbeitung einzelner Sekto- 
ren stellt die T.L.D.U. 10 (bzw. 16, 
s.u.) Editierpuffer zur Verfügung, 
die beliebig gelesen oder ge- 
schrieben werden können. Der 
hierfür eingebaute Editor ermög- 
licht das Überschreiben, Einsetzen 
und Löschen einzelner Bytes im 
ASCII- und Hex-Modus; die An- 
zeige erfolgt wahlweise im ASCII-, 
hexadezimalen oder gemischten 
Format, wobei auch die Möglich- 
keit der (nicht editierfähigen) Aus- 
gabe als Disassembler-, Basic- 
oder Textlisting besteht. 

Auf höherer Ebene können Direc- 
tories, Dateien und bei DOS 3.3 
die VTOC ohne die exakten Kennt- 
nisse der Diskettenorganisation 
bearbeitet werden. Hier empfiehlt 
sich jedoch in jedem Fall die Lektü- 
re der einschlägigen Literatur vor 
der Verwendung dieser Komman- 
dos (s.u.). Als besonders hilfreich 
erweist sich in diesem Zusammen- 
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hang der automatische Abgleich 
der VTOC mit den TSL-Sektoren 
und die Freigabe noch belegter 
Sektoren, die bei der Kürzung von 
Dateien entstehen. 
Eine weitere nützliche Einrichtung 
ist die Möglichkeit, Bytefolgen oder 
Strings auf der Diskette zu suchen 
(auch sektorüberlappend), um sich 
z.B. auf einer beschädigten Disket- 
te zurechtzufinden (die Suche 
nach TSL-Sektoren existiert als 
spezieller Befehl). 
Der eindrucksvollste Teil der 
T.L.D.U. ist ohne Zweifel die Im- 
plementierung einer Macro-Spra- 
che, die unter anderem die Auto- 
matisierung häufig benötigter Be- 
fehlsfolgen gestattet. Mit Hilfe ei- 
nes Editors können Macros defi- 
niert und im Kommando-Modus je- 
derzeit ausgeführt werden. Die 
Sprache umfaßt, außer Variablen, 
Schleifen, der Möglichkeit der IF- 
THEN-ELSE-Programmierung und 
dem Aufruf von „Untermacros“, 
auch eine Fülle nützlicher Anwei- 
sungen (die nur zum Teil denen 
des Kommando-Modus entspre- 
chen), mit deren Hilfe die umfang- 
reiche Bearbeitung von Disketten 
möglich wird, die ansonsten nur 
durch aufwendige System-Pro- 
gramme realisierbar wäre. Bei der 
Benutzung von Macros stehen 16 
Puffer zur Verfügung. So können 
Macros z.B. zum 
— Erstellen DOS-loser Datendis- 
ketten, 
— Modifizieren des Catalogs, 
— „UNDELETEn“ gelöschter Da- 
teien, 
— Kopieren zwischen verschiede- 
nen Betriebssystemen 
und zur Lösung vieler anderer Auf- 
gaben eingesetzt werden. 
Die Syntax der Sprache ist leicht 
verständlich, so daß bereits nach 
kurzer Einarbeitungszeit die ersten 


selbstgeschriebenen Programme 
die Sammlung der mitgelieferten 
Macros erweitern können. Abge- 
sehen von einer etwas dürftig aus- 
gefallenen Benutzerschnittstelle 
während der Abarbeitung von Ma- 
cros läßt die Sprache keine Wün- 
sche offen. 

Der Aufruf der Befehle erfolgt 
durch Eingabe eines Buchstabens 
oder Ctrl-Zeichens, wobei bei 
manchen Kommandos ein zweites 
Zeichen und gegebenenfalls eine 
Name folgen muß. Trotz dieser 
baumartigen Einteilung ist der Zu- 
gang zu den einzelnen Komman- 
dos zum Teil etwas unzulänglich, 
zumal das einzugebende Zeichen 
und der entsprechende Befehl 
nicht immer mnemonisch zueinan- 
derpassen. Der sehr umfangreiche 
Befehlssatz bereitet in diesem Zu- 
sammenhang anfängliche Schwie- 
rigkeiten, was jedoch kein Problem 
einer schlechten Benutzerführung 
ist. 

Zur Orientierung kann für die über- 
geordneten Kommandos ein Hilfs- 
fenster eingeblendet werden (beim 
Apple II Plus nur mit 16K-Erweite- 
rung), das eine kurze Zusammen- 
fassung der Befehle enthält, das 
Handbuch jedoch nicht ersetzen 
Kann. 

Das über 100 Seiten umfassende 
DIN-A5-Handbuch (Ringbuch, fo- 
tokopierter Schönschreibdrucker- 
Printout) ist übersichtlich geglie- 
dert. Die Befehle, speziell die Ma- 
cro-Befehle, werden zum Teil sehr 


kurz behandelt, so daß auf das alt- 
bewährte Trial-and-error-Verfah- 
ren zurückgegriffen werden muß. 
Eine zügige Einarbeitung ist den- 
noch möglich. Das Handbuch ver- 
mittelt keine Kenntnisse in der Or- 
ganisation der Disketten unter den 
verschiedenen Betriebssystemen, 
sondern verweist unter anderem 
auf das Buch „ProDOS für Aufstei- 
ger“ von Ulrich Stiehl. Das bisher 
leider fehlende Register, mit einer 
Übersicht aller Befehle, soll laut 
Angaben der Firma bald er- 
scheinen. 

Vor dem Starten der T.L.D.U. muß 
eine DOS-3.3-Diskette gebootet 
werden. Obwohl nur die RWTS be- 
nutzt wird, bleibt das DOS erhal- 
ten, kann jedoch wahlweise durch 
die Einrichtung weiterer Puffer 
überschrieben werden. Die Verar- 
beitung von Disketten mit höherer 
Spurenzahl (bis 160) wird unter- 
stützt. Da alle Schreib/Lese-Be- 
fehle mit Hilfe der RWTS ausge- 
führt werden, beschränkt sich der 
Zugriff auf das Standardformat. Als 
Option lassen sich jedoch Header- 
und Trailerbytes ändern und die 
Checksum-Routinen lahmlegen. 
Mit der T.L.D.U. erhält der Käufer 
ein umfangreiches Werkzeug zur 
Bearbeitung von Disketten, das 
trotz kleiner Unebenheiten kaum 
Wünsche übrigläßt. Für all jene, die 
Disketten öfters byteweise bear- 
beiten müssen, ist die Ausgabe 
von DM 99.- in jedem Fall empfeh- 
lenswert. 





Tabelle der Interpreter- und 


Monitor-Adressen 


Die nachfolgende doppelte Tabelle 
enthält alle Applesoft-Interpreter-Ein- 
sprungstellen ($DO00-$F7FF) des 
Apple Il Plus sowie alle Monitor-Ein- 
sprungstellen ($F800-$FFFF) des 
Apple II in numerischer, d.h. nach 
Adressen, und alphabetischer, d.h. 
nach Labels, sortierter Reihenfolge. 
Die Monitor-Labelnamen gehen noch 
auf Steve Wozniak zurück, während 
die Interpreter-Labelnamen auf der 
Nomenklatur der Zeitschrift „Call 
A.P.P.L.E.“ sowie auf dem Interpre- 
ter-Quellcode von Prof. Glen E. Bre- 
don basieren. Peeker-Autoren wird 
empfohlen, die Labelnamen zu über- 
nehmen, um eine einheitliche Termi- 
nologie zu gewährleisten. Vergleichs- 








tabellen für den Monitor von Apple Il 
Plus, Ile und IIc sowie Ergänzungen 
zu dem nur beim Apple Ilc geringfü- 
gig abweichenden Applesoft-Inter- 
preter werden veröffentlicht, wenn die 
neuen ROMs für den Ile erschienen 
sind (wahrscheinlich im Sommer). 
Tabellen in der hier vorgestellten Art 
dienen nur als „Quick-Reference“ für 
diejenigen, die bereits wissen, was 
sich hinter den Namen versteckt. Ne- 
ben diesen nackten Adreß-Label-Ta- 
bellen werden wir deshalb eine Aus- 
wahl der wichtigsten Labels nach 
Sachgruppen zusammenfassen und 
anhand von Miniprogrammen erläu- 
tern. 

U. Stiehl 
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Adressen-Labels $D000-$FFFF 












































































































































































































































$DB9® = DOREENT 





$0054 = AUXL 








































































$00Fl = SPEEDZ = NEWLN? = ERFLG? 

















































































= GOWARM 











































































$oppo = LOCH $0055 = AUXH $O0F2 = TRCFLG $DAD1 = MVPRG $D86C = CTRC? $DBA® = GET 
$oppl = LOcC1 $0055 = TEMPST $O@F3 = ORMASK $DA4EA = INSRTLIN $D86E = STOP $DBB2 = INPUT 
$o003 = GOSTROUT $O05E = INDEX $oOBFA = TXTPSV $DAF2 = LINKSET $D870 = END $DBC4 = QOUT 
$OpPA = USR $0p60 = DEST $OBF6 = CURLSV $DAFE = NXLINK $D871 = END2 $DBC7 = DIR? 
$PPOD = CHARAC $0062 = RESULT $0@F8 = REMSTK $D5ßF = PUTLINK $D888 = END3 $DBDC = NXIN 
$0PBE = ENDCHR $0067 = TXTTAB $0@F9 = ROTZ $D5ll = FINDEOL $D88A = END4 $DBE2 = READ 
$pPoF = NUMDIM $0P69 = VARTAB $0100 = STACK $D52C = INLIN $D893 = GOSTART $DBE9 = ZF 
$Oß0F = PNTR $0W6B = ARYTAB $0200 = IN $D52E = INLIN2 $D896 = CONT $DBEB = MAININP 


$DBFl = NXINP 
$DC1IF = SNDQ? 
$DC27 = STXP 
$DC2B = INSTART 
$DC3F = PUTCHR 
$DCAB = PENCHR 
$DCAC = PECHR 


$006D = STREND 
$od6F = FRETOP 
$0071 = FRESPC 
$0073 = MEMSIZ 
$0075 = CURLIN 
$0077 = OLDLIN 
$0079 = OLDTEXT 


$03F5 = AMPER 
$03F8 = USRADR 
$03FB = NMI 
$O3FE = IRQLOC 
$cöß® = IOADR 
$c0ß0 = KBD 
$cöp9 = KEY 


$D539 = GDBUFS 
$D541 = STRIP 
$D5AC = NOI 

$D553 = INCHR 
$D559 = GETIN 
$D56C = PARSE 
$D56D = NXCHR 


$D8Al = CON 
$D8AF = RET6 
$D8Bß = SAVE 
$D8C9 = LOAD 
$D8SED = JLNK 
$D8F® = VARTIO 
$D9ß1 = PROGIO 


$001® = DIMFLG 
$oB11 = VALTYP 
$0013 = DATAFLG 
$0013 = GARFLG 
$0B14 = SUBFLG 
$0015 = INPUTFLG 
$0®16 = CPRMASK 






















$0016 = SIGNFLG $007B = DATLIN $cd1® = KBDSTRB $D578 = SE $D912 = RUN $DC57 = SKP 
$001A = SHAPEL $007D = DATPTR $c020 = TAPEOUT $D588 = TOK? $D91B = RUNLINE $DC63 = NUMIN 
$0ß1B = SHAPEH $007F = INPTR $c030 = SPKR $D590 = ISTOK? $D921 = GOSUB $DC69 = DATIN 
$oBlC = HCOLOR1 $0081l = VARNAM $c05® = TXTCLR $D5A2 = NY $D935 = GOLINE $DC72 = WNX 
$0d1D = COUNTH $0083 = VARPNT $cd51 = TXTSET $D5A7 = NX $D93E = GOTO $DC7E = SWPNT 
$0020 = WNDLFT $0085 = FORPNT $c052 = MIXCLR $D5A8 = LIN $D955 = GOl $DC99 = INPFIN 
$0021 = WNDWDTH $0087 = LASTOP $c053 = MIXSET $D5CB = PUTTOK $D959 = G02 $DCA® = FINDATA 
$0022 = WNDTOP $0087 = TXPSV $c054 = LOWSCR $D5CD = PUTIN $D96A = RET7 $DCB9 = NXS 
$0023 = WNDBTM $0089 = CPRTYP $c055 = HISCR $D5Eß = SSF $D96B = POP $DCC6 = INPDONE 
$0024 = CH $008A = FNCNAM $c056 = LORES $D5E2 = REM? $D97C = UNDERR $DCD1 = NTD 
$0025 = CV $odsA = TEMP3 $c057 = HIRES $D5E9 = SHFTIN $D981 = GSYNER $DCDE = RETI1 


$DCDF = EXIG 
$DCEF = REENT 
$DCF9 = NEXT 
$DCFF = VARNXT 
$DDß2 = SKPV 
$DDÖD = GERR 


$cö6ß = TAPEIN 
$c064 = PADDLY 
$c070 = PTRIG 
$Dö0® = CMDTABL 
$Ddsd = UNFNC 
$D@B2 = MATHTBL 


$D5F2 = SHIN 
$D5F9 = SKIPTOK 
$D5FD = SK2 
$D6ß4 = PLU? 
$D61® = DONE 
$D61A = FNDLIN 


$D984 = RETURN 
$D995 = DATA 
$D998 = ADDON 
$D9A2 = RET8 
$D9Y9A3 = DATAN 
$D9A6 = REMN 


$0026 = GBASL 
$0027 = GBASH 
$0028 = BASL 
$0029 = BASH 
$002A = BAS2L 
$002B = BAS2H 


$0B8C = DSCPTR 
$008F = DSCLEN 
$0090 = JMPADRS 
$0091 = LENGTH 
$0092 = EXTRASV 
$0093 = TEMPI 
















$oB2C = H2 $0094 = ARYPNT $DöC7 = MINUS $D61lE = FL1 $DYAE = RMl $DDPF = GOTFOR 
$002C = LMNEM $0094 = HIGHDS $DOCA = EQUAL $D635 = FL2 $D9B6 = RM2 $DD52 = GONEWST 
$002C = RTNL $0895 = PICK $DöCD = PLUS $D63E = GETLINK $D9C5 = PULL3 $DD55 = ENDFOR 
$002D = RMNEM $0096 = HIGHTR $DöD® = TOKTABL $D647 = NOSUCH $D9C9 = IF $DD67 = FRMNUM 
$002D = RTNH $0098 = TEMP2 $D260 = ERRMSG $D648 = RET3 $D9D8 = TRUE? $DD6A = CHKNUM 
$002D = v2 $0099 = INDX $D260 = NXwoFOR $D649 = NEW $D9DC = REM $DD6C = CHKSTR 


$D278 = SYNTXERR 
$D276 = RTNwoGSB 
$D28A = OofDATA 
$D295 = ILLQUAN 
$D2A5 = OVFLOW 
$D2AD = OofMEM 
$D2BA = UNDSTAT 
$D2CB = BADSUBS 
$D2D8 = REdimARR 
$D2E5S = DIVbyZRO 
$D2F5 = ILLDIR 


$DD6D = CHKVAL 
$DD73 = RETI2 
$DD74 = CV2 
$DD76 = MISMTCH 
$DD78 = JERROR 
$DD7B = FRMEVL 
$DD86 = FEVLOOP 
$DD95 = FRMEVL2 
$DD98 = CPROP 
$DDB4 = CHKTYP 
$DDC5 = ARITH 


$D64B = SCRTCH 
$D665 = SETPTRS 
$D66A = CLEAR 
$D66C = CLEARC 
$D683 = STKINI 
$D696 = RET4A 
$D697 = STXTPT 
$D6A5 = LIST 
$D6Bl = STRTRNG 
$D6C4 = ENDRNG 
$D6CC = MAINLST 


$D9El = IFTRUE 
$DIEY9 = JGOCMD 
$DY9EC = ONGOTO 
$D9F4 = GOTO? 
$DIYF8 = ONCNT 
$DAß® = NXNUM 
$DAßB = RETY 
$DAßC = LINGET 
$DAl2 = ASCHEX 
$DA4ß = NXDIG 
$DA46 = LET 


$PW2E = CHKSUM 
$002E = FORMAT 
$0B2E = MASK 
$002F = LASTIN 
$002F = LENGTH 
$002F = SIGN 
$003d = COLOR 
$0030 = HMASK 
$0031 = MODE 
$0032 = INVFLG 
$0033 = PROMPT 


$0099 = TMPEXP 
$009A = EXPON 
$009B = DPFLG 
$009B = LOWTR 
$009C = EXPSGN 
$009D = DSCTMP 
$009D = FAC 
$oQAQ = VPNT 
$0BA2 = FACSGN 
$00A3 = SERLEN 
$00AA = FPGEN 








































































































































$0034 = YSAV . $00A5 = ARG $D303 = TYPEMISS $D6DA = NXLST $DA63 = LET2 $DDCD = PREFTEST 
$0035 = YSAVl $0BAA = ARGSGN $D31d = STRtOLNG $D6F5 = LSTD? $DA77 = LETREAL $DDD6 = NXOP 
$0036 = CSWL $0dAB = SGNCPR $D31F = FORMtoCX $D6F7 = LSTILIN $DA7A = LETSTR $DDD7 = SAVOP 
$0037 = CSWH $0BAB = STRNGL $D332 = CANTCON $D6FE = LISTLOOP $DA7B = PUTSTR $DDE4 = COMPARE 
$0038 = KSWL $0BAC = EXTRAFAC $D34d = UNDFUNC $D7®2 = SENDCHR $DASC = DESC? $DDEE = ND 
$0039 = KSWH $00AD = SERPNT $D35® = ERRIN $D712 = NCR $DAYA = COPSTR $DDF6 = PREFNC 
$003A = PCL $0BAD = STRNG2 $D358 = INMSG 80724 = LISTED $DAAl = NEWDESC $DDFD = PSHMAD 
$003B = PCH $00AF = PRGEND $D35D = BREAKIN $D72C = GETCHR $DAB7 = COPY $DE®D = SNTXERR 
$003C = AlL $00Bl = CHRGET $D365 = GTFORPNT $D731 = GC $DACF = PRSTRING $DEl® = PSHF 
$003C = XQT $00B7 = CHRGOT $D36A = FNDFOR $D734 = TOKEN? $DAD5 = PRINT $DEl5 = PSHFACX 
$003C = XQTNZ $00B8 = TXTPTR $D37F = SAMEFOR? $D746 = SKPTK $DAD7 = PRINT2 $DE2® = PUSHFAC 
$003D = AIH $00C9 = RNDSEED $D38B = NXFOR $D749 = TOKLP $DAFB = CRDO $DE35 = NOTMATH 
$O003E = A2L $00D® = DXL $D392 = RETI $D758 = PRTOK $DBß® = NEGATE $DE38 = GOEX 
$003F = A2H $0@D1 = DXH $D393 = BLTU $D755 = TOKLUP $DBß2 = RETIP $DE3A = DOMTH 
$00AB = AL $o0D2 = DY $D39A = BLTU2 $D75F = TOKDONE $DBß3 = TAB $DE41l = DMTH 
$0041l = A3H $00D3 = QDRNT $D3B7 = SETEND $D766 = FOR $DBÖE = NXCLM $DE43 = DOMATH 
$0042 = A4L $00D4 = EL $D3C3 = MVBYT $D777 = FOR2 $DBl6 = TABWHERE $DE5SD = EXIT 
$0043 = A4H $00D5 = EH $D3C7 = NXBYT $D7AF = STEP $DB21 = SPC? $DE6® = GETVAL 
$0044 = A5L $00D6 = LOCK $D3CE = NXPAG $D7C3 = ONESTEP $DB2B = TABIT $DE64 = SKIP 
$0045 = A5H $00D8 = ERRFLG $D3D6 = CHKMEM $D7D2 = NEWSTT $DB2C = NXSPC $DE69 = NUMBER 
$0045 = ACC $00DA = ERRLIN $D3E3 = REASON $D7E5S = DIRCT $DB2F = NEXTCHR $DE6C = VAR? 
$0046 = XREG $00DC = ERRPOS $D3ED = RS1l $D805 = TRACE? $DB35 = DOSPC $DES1 = STRTXT 
$0047 = YREG $ß0DE = ERRNUM $D3F1l = RS2 $D81D = TR1 $DB3A = STROUT $DESA = ST 
$0048 = STATUS $00DF = ERRSTK $D3FC = RS3 $D826 = GOEND $DB3D = STRPRT $DE9B = NOT? 
$0049 = SPNT $ODdEß = XOL $DAßF = RET2 $D828 = GOCMD $DB44 = NXCHAR $DE98 = EQUOP 
$OQAE = RNDL $OdEl = XQH $D41® = MEMERR $D82A = GOCMD2 $DB57 = OUTSP $DE9YF = NOTZ 
$004F = RNDH $odE2 = YO $D412 = ERROR $D83F = NOTOK $DB5A = OUTQUES $DEA4 = FN? 
$0050 = ACL $00EA = HCOLORZ $D419 = DOERRMSG $D842 = COLON? $DB5C = OUTDO $DEAB = SGN? 
$0050 = LINNUM $00E5 = HNDX $DAlF = ERLUP $D846 = JSY $DB64 = SEND $DEB2 = PARCHK 
$0051 = ACH $OBES = HPAG $D431 = PRNTIN? $D849 = RESTORE $DB71l = INPUTERR $DEBS = CHKCLS 
$0052 = TEMPPT $00E7 = SCALEZ $D43C = RESTART $D853 = SETDA $DB7B = READERR $DEBB = CHKOPN 
$0052 = XTNDL $00ES = SHAPEPNT $D45C = NXLIN $D857 = RET5 $DB7F = ERLIN $DEBE = CHKCOM 
$0053 = LASTPT $OBEA = COLCOUNT $DA9F = NL1 $D858 = ISCNTC $DB86 = INPERR $DEC® = SYNCHR 
= XTNDH = FIRST $DAA7T = MVDWN $D869 = GK $DB87 = RESPERR $DECY9 = SYNERR 
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= MIN = DIMOK2 = GOIQ = FD3 = SVY 





= SETHI 























































































































































































































































































































































































































































































$DED® = EQUL $E281 = NXDM $E6F5 = GTBYTC $EAA6 = FDA $EDBD = MAKSTR $F2A6 = LOMEM 
$DED5 = VARL $E292 = NINTA $E6SF8 = GETBYT $EABA4 = FD5 $EDC1 = MSLUP $F2CB = ONERR 
$DEE5 = VRl $E298 = RARY $E6FB = CONINT $EADl = FD6 $EDE5 = PARITY? $F2E9 = HANDLERR 
$DEF6 = VR2 $EZAC = RTN2 $E707 = VAL $EAD5 = FD7 $EDE7T = COUNTED $F318 = RESUME 
$DEF9 = SCREEN $E2AD = MULT $E7TOF = VL2 $EAEl = DIVZ $EDEE = MAKDIGIT $F32E = JSYN 
$DFöC = UNARY $E2B6 = MUl $E727 = VL3 $EAE6 = RES>FAC $EEß9 = SAVY $F331 = DEL 
$DF3A = N0Tinstr $E2CO = MU2 $E73D = POINT $EAF9 = MOVFM $EEl9 = MVBACK $F365 = MOVDWN 
$DF3F = GOROUT $E2D9 = MU3 $E746 = GTNUM $EBlE = MOV2F $EE26 = NEEDEX? $F367 = MOVIT 
$DFAF = OR $E2DE = FRE $E74C = COMBYTE $EB21 = MOVIF $EE36 = PUTEX $F388 = NDX 
$DF55 = AND $E2E5 = FRE2 $E752 = GETADR $EB23 = MOVML $EE42 = WHATX $F398 = GR 
$DF5D = FALSE $E2F2 = GIVAYF $E764 = PEEK $EB27 = SETFOR $EE57 = WNDUP $F399 = TEXT 
$DF6ß = TRUE $E2FF = POS $E77B = POKE $EB2B = MOVMF $EE5A = MARKEND $F39F = STORE 
$DF65 = POSOP $E3ß1 = SNGFLT $E784 = WAIT $EB53 = MOVFA $EE5SF = PNTSTK $F3AF = SLI 
$DF7D = STRCMP $E3ß6 = ERRDIR $E793 = WT2 $EB5S5 = MFA $EE64 = HALF $F3BC = RECALL 
$DFA5 = SFS $E3ßE = UNDFNC $E797 = WT3 $EB59 = MFA2 $EE69 = DECTBL $F3D2 = MOK 
$DFAA = CMPLOOP $E313 = DEF $E79F = RTNA $EB63 = MOVAF $EESD = SQR $F3D8 = HGR2 
$DFBß = NUMCMP $E341 = FNC? $E7A® = FADDH $EB66 = MAF $EE8SD = TEND $F3E2 = HGR 
$DFB5S = DOCMP $E354 = FUNCT $E7A7T = FSUB $EB68 = MAF2 $EE97 = FPWRT $F3EA = SETHPG 
$DFC1 = CMPDONE $E378 = SAVOLD $E7TAA = FSUBT $EB71 = RTN9Y $EEA® = PWl $F3F2 = HCLR 
$DFCA = JF $E3A9 = GETOLD $E7B9 = AD® $EB72 = RNDB $EEBA = PW2 $F3F6 = BKGND 
$DFCD = PDL $E3AF = FNCDATA $E7BE = FADD $EB7A = ROUND $EED® = NEGOP $F3FE = BKGND1 
$DFD6 = NXDIM $ESCS5 = STR $E7TC1 = FADDT $EB82 = SIGN $EEDA = RTN13 $FAll = HPOSN 
$DFD9 = DIM $E3D5 = STRINI $ET7C6 = AD! $EB86 = SIGNI $EEDB = LOGe $F441 = HPOSNIl 
$DFE3 = PTRGET $ESDD = STRSPA $ETCE = AD2 $EB88 = SIGN2 $EEE® = EXPSER $F442 = HPOSN2 
$DFES = PTRGET2 $E3E7 = STRLIT $ETEA = AD3 $EBSF = RTN1B $EFß9 = EXP $F457 = HPLOT® 
$DFEA = PTRGET3 $E3ED = STRLT2 $ETEE = AD4 $EB9ß = SGN $EF19 = X1l $F465 = LFTRT 
$DFF4 = BADNAM $ESF7T = FEND $ETFA = AD5 $EB93 = FLOAT $EF24 = 00R $F467 = LEFT 
$DFF7 = NAMOK $E4ß4 = QUO? $ESß6 = SUBMAN $EBSB = FLOLl $EF27 = X2 $FA46E = LR1 
$Eßß® = BASIC $EAß8 = ZEND $E829 = SGNIF $EBAß = FLO2 $EF37 = X3 $F471 = LEFTI 
$Eßß3 = BASIC2 $EAß9 = NZ $ES2E = SIGNIF $EBAF = ABS $EF5C = ODDSER $F476 = LEFT2 
$Eß07 = MORNAM $E415 = FELl $E832 = FLOOP $EBB2 = FCOMP $EF72 = SERIES $F478 = NEWNDX 
$Eßl1 = GTLT $EAlF = FE2 $ES4E = ZEROFAC $EBB4 = FCOMP2 $EF76 = SERMAIN $FA7C = CSHIFT 
$Eß12 = BYPASS $EA2A = PUTNEN $E85Sß = AtoFAC $EBE9 = FCl $EF85S = SS $FATE = CSHFT2 
$EßlC = STRNG? $E432 = JERR $E852 = AtoFACS $EBEF = FC2 $EF89 = SERLOOP $F489 = RTS1 
$Eß26 = INTVAR? $E435 = PUTEMP $E855 = ADMAN $EBF2 = QINT $EF96 = NXTERM $F48A = RIGHT 
$Eß36 = NIN $E452 = GETSPA $E874 = FRl $ECdE = QIl $EFA5 = RTN14 $F49C = LRUDX1 
$Eß3D = SCDCH $E454 = GETSPC $E88Sß = FR2 $EC11 = RTNIl $EFA6 = RNDADJ1 $F49D = LRUDX2 
$Eß46 = JARY $EA45F = CY $E88D = FR3 $EC12 = QI2 $EFAA = RNDADJ2 $FAB3 = LRUD1 
$Eß49 = BSB $E469 = GOTSPA $ESSF = FROUND $EC23 = INT $EFAE = RND $F4B4 = LRUD2 
$EßAF = VSEARCH $E474 = FULL $E89D = RTN5 $ECAß = ZFAC $EFCC = RDl $F4C4 = LRUD3 
$E059 = NXVAR $E484 = GARBAG $ESYIE = NEGFAC $EC49 = RTNI12 $EFE7 = RD2 $FAC8 = LRUDA 
$EO5SB = NVl $E488 = FNDVAR $ESA4 = NEG2 $ECAA = FIN $EFEA = COS $FACD = EQ3 
$Eß65 = NV2 $EAAB = TVAR $ESC6 = PLUSEPS $ECAE = FIN2 $EFFl = SIN $FAD3 = UPDOWN 
$E073 = NXPTR $EAA9 = SVARS $E8D4 = RTN6 $EC5D = FIN3 $F023 = SIl $FAD5 = UP 
$Eß7D = ISLETC $EAB5S = SVAR $ESD5 = OVERFLOW $EC6l = EVAL $Fß26 = SI2 $FAEB = UP1l 
$Eß86 = RTNI1 $EA4BD = SVARGO $ESDA = SHFTRES $EC64 = NXDIGIT $F033 = SI3 $FAF6 = UP5 
$Eß87 = NOTFND $EAC2 = ARYVAR $ESDC = NXSFT $EC66 = CHKDP $FO3A = TAN $FAFB = UP2 
$Eß9A = TWOBRK $EACA = ARYVA2 $ESF® = SHIFT $EC85S = SETSGN $F062 = TAN2 $FAFD = UP3 
$Eß9C = NEWVAR $EACE = ARYVAZ $ESFD = SHLl $EC87 = DPDIG $Fö66 = PIhalf $FAFF = UP4 
$EßB2 = NWV $EADY9I = ARYVGO $E9ß3 = SH2 $EC8A = GOGEX $Fö6B = PIdoub $F591 = UPDWNIl 
$EßDE = SETVPNT $E5SßC = ARYSTR $E907 = SHFTR $EC8C = SGNCHK $F07® = QUARTER $F505 = DOWN 
$EDES = SVP $E514 = GOGO $E911 = SH3 $EC98 = SETDP $F075 = SINSER $F508 = EQ4 
$EßED = GETARY $E519 = DVARS $E913 = ONE $ECYE = ADJEXP $FÖ9E = ATN $F524 = DOWN3 
$EßEF = GETARY2 $E523 = DVAR $E918 = LOGSER $ECA® = AEX $FOA6 = ATNl $F52A = DOWN 


$E538 = DV1 
$E542 = DV2 
$E552 = DVARTS 


$EOßF9 = GD 
$EÖFE = NEGNUM 
$Elß2 = MAKINT 


$E92D = SQRhalf 
$E932 = SQRtwo 
$E937 = HALFneg 


$FOB4 = ATN2 
$FÖC7 = ATN3 
$FÖCD = RTN15 


$ECA9 = DPLEFT 
$ECB2 = DPRIGHT 
$ECBY9 = EVDONE 


$F52C = DOWN2 
$F530 = HLINRL 
$F53A = HGLIN 







































































$E1ß8 = MKINT $E55D = VDONE $E93C = LOGtwo $ECBE = EVD $FÖCE = ATNSER $F550 = HLIN2 
$EldC = AYINT $E562 = GRBPAS $E941 = LOG $ECC1 = INSRTDIG $F10B = ZPSTUFF $F568 = HLIN3 
$Ell9 = MIl $E597 = CAT $E948 = GIQ $ECC8 = NDP $F122 = RTNI16 $F57C = MOVEX 
$EllB = MI2 $E5SB7 = NTL $E94B = LG2 $ECD5 = ADDACC $F128 = COLDST $F581 = MOVEX2 


$EllE = ARRAY $ESD4 = MOVINS $E97F = FMULT $ECES = GETEXP $F152 = MVZP $F58B = HCOUNT 




































































$El2C = NXTDIM $E5E2 = MOVSTR $E982 = FMULTT $ECF7 = MVDG $F181l = FNDMEMHI $F59E = HLIN4 
$E169 = FNDARY $E5SE6 = MOVESTR $E987 = FMU $ED®5 = STEX $F195 = MEMFOUND $F5B2 = MSKTBL 
$El6D = ARYLOOP $E5SEA = MVS2 $E9SBQ = FMl $EDßA = HMmiTNTH $F1D5 = CALL $F5B9 = EQIC 
$E179 = ARYNAM? $E5SF3 = MVS3 $ESB5 = FM2 $ED@F = BILmiONE $FI1DE = INNU $F5BA = COSTBL 
$E188 = NXARY $E5SFD = FRESTR $E9SBS = FM3 $ED14 = BILLION $FlE5S = PRNU $F5CB = HFIND 
$El96 = SUBERR $E6Sß® = FREFAC $E9DA = FM4 $ED19 = INPRT $FlEC = PLOTFNS $F5F® = HFINDl 
$E199 = IQERR $E604 = FRETMP $EYE2 = RTNT $ED24 = LINPRT $F206 = GOERR $F5FE = HFIND2 
$El9B = JER $E630 = NB $E9Y9EZ = CONUPK $ED2E = PRNTFAC $F289 = LINCOOR $F699 = RTS2 
$ElYE = ARYFOUND $E635 = FRETMS $EABE = ADEXP $ED31 = PRSTR $F218 = AT? $F60l1 = DRAW® 
$ElAA = CHKDIM $E645 = RTN3 $EAl® = ADEX2 $ED34 = FOUT $F225 = PLOT $F605 = DRAW1 
$ElB8 = NOTFOUND $E646 = CHRSTR $EAlB = ADEX3 $ED36 = FACSTRNG $F232 = HLIN $F626 = DRAW2 
$ElC1 = MAKARY $E65A = LEFTSTR $EA26 = ADEX4 $ED4l = SFSG $F241 = VLIN $F630 = DRAW3 
$ElD5 = NINT $E66B = INS1 $EA2B = OUTOFRNG $ED4F = NOTZE $F24F = COLOR $F63D = DRAW4A 
$ElDE = RAR $E666 = INS2 $EA31 = ZERO $ED57 = MB $F256 = VTAB $F648 = DRAW5 
$ElE7T = SAVDIM $E667 = INS3 $EA36 = JOV $ED6® = STE $F262 = SPEED $F65D = XDRAW® 






$E668 = INS4 
$E67F = BPD 


$ElF7 = DFLTDIM 
$E21A = ZARY 


$EA39 = MULI1® 
$EAAF = RTN8 


$ED62 = CMPBMIl 
$ED6D = CMPHM 


$F26D = TRACE 
$F26F = NOTRACE 


$F661 = XDRAWl 
$F682 = XDRAW2 



























$E229 = ZLUP $E686 = RIGHTSTR $EA5S® = NUM1P $ED78 = JM1ß $F273 = NORMAL $F68C = XDRAW3 
$E2ZZE = NXPG $E691 = MIDSTR $EA55 = DIV1ß $ED7F = JD1 $F277 = INVERSE $F699 = XDRAW4 
$E24B = FNDELEM $E6A2 = INS5 $EA5SE = DIV $ED86 = ROUN $F279 = NRM $F6AA = XDRAWS 
$E253 = DIMLUP $E6B9 = INSTRNG $EA66 = FDIV $ED89 = INTPART $F27B = SI $F6B4 = NI 
$E269 = GSE $E6D6 = LEN $EA69 = FDIVT $EDYIE = DPLOC $F280 = FLASH $F6B9 = HFNS 
$E26C = GME $E6DC = GETSTR $EA8ß = FD1 $EDY9F = DPL $F286 = HIMEM $F6CD = HFNS1 












= DIMOK = ASC FD2 = PUTDP = JMM = GGERR 
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$F6EY9 = 
$F6F5 = 
$F6F6 = 
$F6FE = 
$F708 = 
$F7OF = 
$F721l = 
$F727 = 
$F72D = 
$F74l = 
$F747 = 
$F766 = 
$F769 = 
$F76F = 
$F775 = 
$F796 = 
$F7AO = 
$F7AZ = 
$F7BC = 
$F7D9 = 
$FTE7 = 
$FTEC = 
$FTFA = 
$F8ß0 = 
$F8pp = 
$F8dC = 
$F8dE = 
$F819 = 
$F8lC = 
$F826 = 
$F828 = 
$F831 = 
$F832 = 
$F836 = 
$F838 = 
$F83C = 
$F847 = 
$F856 = 
$F85F = 
$F864 = 
$F871 = 
$F871l = 
$F879 = 
$F87F = 
$F882 = 
$F88E = 
$F89B = 
$F8A5 = 
$F8A9 = 
$F8BE = 
$F8C2 = 
$F8C9 = 
$F8DO = 
$F8D4 = 
$F8DB = 
$FEF5 = 
$F8F9 = 
$F919 = 
$F914 = 
$F926 = 
$F92A = 
$F939 = 
$F938 = 


$F94B 


$F941 = 
$F944 = 


$F948 
$FYAA 


$F94C = 
$F953 = 
$F954 = 
$F956 = 
$F95C = 
$F961l = 
$F962 = 
$FYA6 = 
$F9B4 = 
$F9BA = 
$FICQ = 
$FAQQ = 
$FA43 = 
$FA4E = 
$FA78 = 
$FATA = 
$FA8E = 
$FA92 = 
$FASC = 
$FAA5 = 
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HCOLOR $FAA9 = 
RTS3 $FAAD 
COLORTBL $FAAF 
HPLOT $FAB9I 
HP2 $FACA 
HP3 $FAC5 
ROT $FACD 
SCALE $FADL 
DRWPNT $FAD7T 
DP1 $FADA 
DP2 $FAE4 
DP3 $FAFD 
DRAW $FBOB 
XDRAW $FBll 
SHLOAD $FB19 
SL1 $FBlE 
SL2 $FB25 
SL3 $FB2E 
TAPEPNT $FB2F 
GETARYPT $FB39 
HTAB $FB49 
HTABl $FBAB 
HTAB2 $FB5B 
MONPLOT $FB6P 
PLOT $FB63 
RTMASK $FB65 
PLOT $FB6ED 
HLINE $FB76 
HLINELl $FB78 
VLINEZ $FB8l 
VLINE $FB84 
RTS1 $FB86 
CLRSCR $FBA® 
CLRTOP $FBA4A 
CLRSC2 $FBAF 
CLRSC3 $FBB4 
GBASCALC $FBCO 
GBCALC $FBCl 
NXTCOL $FBD® 
SETCOL $FBD9I 
SCR $FBE4 
SCRN $FBEF 
SCRN2 $FBF® 
RTMSKZ $FBFA 
INSDS1 $FBFC 
INSDS2 $FBFD 
IEVEN $FC19 
ERR $FO1A 
GETFMT $FC22 
MNNDX1 $FC24 
MNNDX2 $FC2B 
MNNDX3 $FCc2C 
INSTDSP $FC42 
PRNTOP $FC46 
PRNTBL $FC58 
PRMNI1 $FC62 
PRMN2 $FC66 
PRADR1 $FC7® 
PRADR2 $FC76 
PRADR3 $FCEC 
PRADR4 $FC95 
PRADR5 $FCIC 
RELADR $FCYE 
PRNTYX $FCA® 
PRNTAX $FCA8 
PRNTX $FCAS 
PRBLNK $FCA9 
PRBL2 $FCAA 
PRBL3 $FCB4A 
PCADJ $FCBA 
PCADJ2 $FCC8 
PCADJ3 $FCc9 
PCADJ4 $FCD6 
RTS2 $FCDB 
FMT1l $FCE2 
FMT2 $FCE5 
CHAR1 $FCEC 
CHAR2 $FCEE 
MNEML $FCFA 
MNEMR $FCFD 
STEP $FDOC 
XQINIT $FDI1B 
xql $FD21 
x0Q2 $FD2F 
IRQ $FD35 
BREAK $FD3D 
XBRK $FD5F 
XRTI $FD62 = 


ARTS 
PCINC2 
PCINC3 
XJSR 
XJMP 
XJMPAT 
NEWPCL 
RTNJMP 
REGDSP 
RGDSP1 
RDSP1 
BRANCH 
NBRNCH 
INITBL 
RTBL 
PREAD 
PREAD2 
RTSZD 
INIT 
SETTXT 
SETGR 
SETWND 
TABV 
MULPM 
MUL 
MUL2 
MULS3 
MUL4 
MULS 
DIVPM 
DIV 
DIV2 
DIV3 
MD1 
MD2 
MD3 
MDRTS 
BASCALC 
BSCLC2 
BELL1 
BELL2 
RTS2B 
STOADV 
ADVANCE 
RTS3 
VIDOUT 
BS 

UP 
VTAB 
VTABZ 
RTS4 
ESC1 
CLREOP 
CLEOP1 
HOME 
CR 

LF 
SCROLL 
SCRL1 
SCRL2 
SCRL3 
CLREOL 
CLEOLZ 
CLEOLZ 
MONWAIT 
WAIT 
WAITZ 
WAITS 
NXTA4 
NXTAl 
RTS4AB 
HEADR 
WRBIT 
ZERDLY 
ONEDLY 
WRTAPE 
RDBYTE 
RDBYT2 
RD2BIT 
RDBIT 
RDKEY 
KEYIN 
KEYINZ2 
ESC 
RDCHAR 
NOTCR 
NOTCR1 
CANCEL 


= GETLNZ 


GETLN 
BCKSPC 
NXTCHAR 
CAPTST 
ADDINP 
CROUT 
PRAl 
PRYX2 
XAM8 
MODSCHK 
XAM 
DATAOUT 
RTS4C 
XAMPM 
ADD 
PRBYTE 
PRHEX 
PRHEXZ 
COUT 
COUT1 
COUTZ 
BL1 
BLANK 
STOR 
RTS5 
SETMODE 
SETMDZ 
LT 

LT2 
MOVE 
VFY 
VFYOK 
LIST 
LIST2 
AIPC 
ALPCLP 
AIPCRTS 
SETINV 
SETNORM 
SETIFLG 
SETKBD 
INPORT 
INPRT 
SETVID 
OUTPORT 
OUTPRT 
IOPRT 
IOPRT1 
IOPRT2 
XBASIC 
BASCONT 
GO 

REGZ 
TRACE 
STEPZ 
USR 
WRITE 
WR1 
WRBYTE 
WRBYT2 
CRMON 
MONREAD 
READ 
MONREAD2 
RD2 

RD3 
PRERR 
BELL 
RESTORE 
RESTR1 
SAVE 
SAVl 
RESET 
MON 
MONZ 
NXTITM 
CHRSRCH 
DIG 
NXTBIT 
NXTBAS 
NXTBS2 
GETNUM 
NXTCHR 
TOSUB 
ZMODE 
CHRTBL 


= SUBTBL 


AlH 

AlL 
AIPC 
ALPCLP 
ALPCRTS 
AH 

AZL 

A3H 

ASL 

AAH 

AAL 

A5H 

A5SL 

ABS 

ACC 

ACH 

ACL 

AD® 

AD1 

AD2 

AD3 

AD4A 

ADS 

ADD 
ADDACC 
ADDINP 
ADDON 
ADEX2 
ADEX3 
ADEX4 
ADEXP 
ADJEXP 
ADMAN 
ADVANCE 
AEX 
AMPER 
AND 

ARG 
ARGSGN 
ARITH 
ARRAY 
ARYFOUND 
ARYLOOP 
ARYNAM? 
ARYPNT 
ARYSTR 
ARYTAB 
ARYVA2 
ARYVA3 
ARYVAR 
ARYVGO 
ASC 
ASCHEX 
AT? 

ATN 
ATNl 
ATN2 
ATN3 
ATNSER 
AUXH 
AUXL 
AYINT 
AtoFAC 
AtoFACS 
BADNAM 
BADSUBS 
BAS2H 
BAS2L 
BASCALC 
BASCONT 
BASH 
BASIC 
BASIC2 
BASL 
BCKSPC 
BELL 
BELL1 
BELL2 
BILLION 


= $003D 
= $PPSC 
= $FE75 
$FE78 
$FETF 
$ODSF 
$P03E 
= $0041 
= $0D4p 
$0943 
$0942 
$0045 
50944 
$EBAF 
$0045 
$0051 
$0050 
$E7B9 
$E7C6 
$E7TCE 
$ETEA 
$ETEE 
$ETFA 
= $FDD1 
$ECD5 
$FD84 
$D998 
$EA1® 
$EAlB 
$EA26 
$EAPE 
$ECYE 
$E855 
$FBFA 
$ECAB 
$03F5 
$DF55 
$00A5 
$OMAA 
$DDC5 
$EllE 
$El9E 
$El6D 
$E179 
50094 
$E5SOC 
$006B 
$EACA 
$EACE 
$EAC2 
$E4D9Y 
$E6E5 
$DA12 
$F218 
$FO9E 
$FOAS 
$FOB4A 
= $FßC7 
$FOCE 
$0055 
$0054 
$EldC 
$E859 
$E852 
$DFF4 
$D2CB 
$002B 
$OB2A 
$FBC1l 
$FEB3 
$0029 
$ENNOY 
$EBB3 
$0028 
$FD71 
$FF3A 
$FBD9I 
= $FBE4 
= $ED14 


BILmiONE = $ED@F 


BKGND 
BKGND1 
BL1 
BLANK 


= $F3F6 
= $F3FE 
= $FEß® 
= $FEß4A 


Labels-Adressen $D000-$FFFF 


BLTU 
BLTU2 
BPD 
BRANCH 
BREAK 
BREAKIN 
BS 

BSB 
BSCLC2 
BYPASS 
CALL 
CANCEL 
CANTCON 
CAPTST 
CAT 

CH 
CHAR1 
CHAR2 
CHARAC 
CHKCLS 
CHKCOM 
CHKDIM 
CHKDP 
CHKMEM 
CHKNUM 
CHKOPN 
CHKSTR 
CHKSUM 
CHKTYP 
CHKVAL 
CHRGET 
CHRGOT 
CHRSRCH 
CHRSTR 
CHRTBL 
CLEAR 
CLEARC 
CLEOL2Z 
CLEOLZ 
CLEOP1 
CLREOL 
CLREOP 
CLRSC2 
CLRSC3 
CLRSCR 
CLRTOP 
CMDTABL 
CMPBMl 
CMPDONE 
CMPHM 
CMPLOOP 
COLCOUNT 
COLDST 
COLON? 
COLOR 
COLOR 
COLORTBL 
COMBYTE 
COMPARE 
CON 
CONINT 
CONT 
CONUPK 
COPSTR 
COPY 
cos 
COSTBL 
COUNTED 
COUNTH 
COUT 
COUT1 
COUTZ 
CPRMASK 
CPROP 
CPRTYP 
CR 

CRDO 
CRMON 
CROUT 
CSHFT2 
CSHIFT 
CSWH 
CSWL 
CTRC? 


CURLIN 


DATAFLG 
DATAN 
DATAOUT 
DATIN 
DATLIN 
DATPTR 
DECTBL 
DEF 
DEL 
DESC? 
DEST 
DFLTDIM 
DIG 
DIM 
DIMFLG 
DIMLUP 
DIMOK 
DIMOK2 
DIR? 
DIRCT 
DIV 
DIV 
DIV1® 
DIV2 
DIV3 
DIVPM 
DIVZ 
DIVbyZRO 
DMTH 
DOCMP 
DOERRMSG 
DOMATH 
DOMTH 
DONE 
DOREENT 
DOSPC 
DOWN 
DOWN1 
DOWN2 
DOWNS3 
DP1L 
DP2 
DP3 
DPDIG 
DPFLG 
DPL 
DPLEFT 
DPLOC 
DPRIGHT 
DRAW 
DRAW® 
DRAWI 
DRAW2 
DRAWS3 
DRAW4 
DRAWS 
DRWPNT 
DSCLEN 
DSCPTR 
DSCTMP 
DV1 
DV2 
DVAR 
DVARS 
DVARTS 
DXH 
DXL 

DY 

EH 

EL 

END 
END2 


END3 
END4 
ENDCHR 
ENDFOR 
ENDRNG 


= $0075 

$DoF6 

$0025 
= $DD74 

$EA5F 

$D995 

$0013 

$DYA3 
= $FDB6 
= $DC69 
= $007B 
= $907D 
= $EE69 
= $E313 
= $F33] 
= $DASC 
= $0069 
= $EIF7 
= $FF8A 
= $DFD9Y 
= $0019 
= $E253 
= $E26F 
= $E279 
= $DBC7 
= $D7E5 
= $EA5E 
= $FB84 
= $EA55 
= $FB86 
= $FBA® 
= $FB8l 
= $EAELl 
= $D2E5 
= $DE4l 
= $DFB5 
= $D419 
= $DE43 
= $DE3A 
= $D619 
= $DB9Yp 
= $DB35 
= $F505 
= $F52A 
= $F52C 
= $F524 
= $F74l 
= $F747 
= $F766 
= $EC87 
= $009B 
= $EDIYF 
= $ECA9 
= $EDYE 
= $ECB2 
= $F769 
= $F6ß1 
= $F605 
= $F626 
= $F639 
= $F63D 
= $F648 
= $F72D 
= $P08F 
= $BW8c 
= $009D 
= $E538 
= $E542 
= $E523 

$E519 

$E552 

$00D1 

$o9Dp 

$00D2 

$00D5 

$00D4A 

$D879 
= $D871 


$D888 
= $D88A 
= $P0pE 
= $DD55 
= $D6C4 
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ODDSER = $EF5C PRSTR = $ED31 RNDADJ1 = $EFA6 SETINV = $FE8® STRNG? VARPNT 

OLDLIN = $9977 PRSTRING = $DACF RNDADJ2 = $EFAA SETKBD = $FE8J STROUT = $DB3A VARTAB = $ß@69 
OLDTEXT = $9979 PRTOK = $D759 RNDB = $EB72 SETMDZ = $FEID STRPRT = $DB3D VARTIO = $D8Fß 
ONCNT = $DYF8 PRYX2 = $FD96 RNDH = $0p4F SETMODE = $FEI18 STRSPA = $E3DD VDONE = $E55D 
ONE = $E913 PSHF = $DE1® RNDL = $pp4E SETNORM = $FE84 STRTRNG = $D6Bl VFY = $FE36 
ONEDLY_ = $FCE2 PSHFACX = $DE15 RNDSEED = $ßßc9 SETPTRS = $D665 STRTXT = $DE81 VFYOK = $FE58 
ONERR = $F2CB PSHMAD = $DDFD ROT = $F72l SETSCN = $EC85 STRtOLNG = $D31® VIDOUT = $FBFD 
ONESTEP = $D7C3 PTRGET = $DFE3 ROTZ = $PAF9 SETTIXT = $FB39 STXP = $DC27 VL2 = $E7OF 
ONGOTO = $DYEC PTRGET2 = $DFE8 ROUN = $ED86 SETVID = $FE9Y3 STXTPT = $D697 VL3 = $E727 
OOR = $EF24 PTRGET3Z = $DFEA ROUND = $EB7A SETVPNT = $EßDE SUBERR = $E196 VLIN = $F241 
OR = $DFAF PTRIG = $c079 RS1 = $D3ED SETWND = $FB4B SUBFLG = $pp14 VLINE = $F828 
ORMASK = $PpF3 PULL3 = $D9C5 RS2 = $D3Fl SFS = $DFA5 SUBMAN = $E8ß6 VLINEZ = $F826 
OUTDO = $DB5C PUSHFAC = $DE2® RS3 = $D3ZFC SFSG = $ED4l SUBTBL = $FFE3 VPNT = $0pAp 
OUTOFRNG = $EA2B PUTCHR = $DC3F RTBL = $FB19 SGN = $EBIP SVAR = $E4B5 VRl = $DEE5 
OUTPORT = $FE9Y5 PUTDP = $EDAA RTMASK = $F8ßC SGN? = $DEAB SVARGO = $E4BD VR2 = $DEF6 
OUTPRT = $FE97 PUTEMP = $E435 RTMSKZ = $F87F SGNCHK = $ECE8C SVARS = $E4A9 VSEARCH = $Eß4F 
OUTQUES = $DB5A PUTEX = $EE36 RTN1 = $Eß86 SGNCPR = $PpAB SVP = $EPES VTAB = $F256 
OUTSP = $DB57 PUTIN = $D5CD RTN1® = $EB8F SGNIF = $E829 SVY = $EDBB VTAB = $FC22 
OVERFLOW = $E8D5 PUTLINK = $D5ßF RTNI1 = $EC11 SHl = $ESFD SWPNT = $DC7E VTABZ = $FC24 
OVFLOW = $D2A5 PUTNEW = $E42A RTN12 = $EC49 SH2 = $E9ß3 SYNCHR = $DEC® WAIT = $E784 
OofDATA = $D28A PUTSTR = $DA7B RTN13 = $EEDA SH3 = $E9I11 SYNERR = $DEC9Y WAIT = $FCA8 
OofMEM = $D2AD PUTTOK = $D5CB RTN14 = $EFA5 SHAPEH = $ß@1B SYNTXERR = $D27® WAIT2 = $FCA9 
PADDLdO = $Cß64 Pw1 = $EEA® RTN15 = $FÖCD SHAPEL = $ßßlA TAB = $DBß3 WAITZ = $FCAA 
PARCHK = $DEB2 PW2 = $EEBA RTN16 = $F122 SHAPEPNT = $PPE8 TABIT = $DB2B WHATX = $EE42 
PARITY? = $EDE5 QDRNT = $00D3 RTN2 = $E2AC SHFTIN = $D5E9 TABV = $FB5B WNDBTM = $9923 
PARSE = $D56C gIl = $EC96 RTN3 = $E645 SHFTR = $E997 TABWHERE = $DB16 WNDLFT = $9929 
PCADI = $F953 012 = $EC12 RTN4 = $E79F SHFTRES = $E8DA TAN = $FO3A WNDTOP = $9922 
PCADJ2 = $F954 QINT = $EBF2 RTN5 = $E89D SHIFT = $ESF® TAN2 = $Fß62 WNDUP = $EE57 
PCADJ3 = $F956 QOUT = $DBC4 RTN6 = $E8D4 SHIN = $D5F2 TAPEIN = $Cß6 WNDWDTH = $@921 
PCADJA = $F95C QUARTER = $F979 RTN7 = $E9E2 SHLOAD = $F775 TAPEOUT = $cp29 WNX = $DC72 
PCH = $003B Quo? = $E494 RTN8 = $EA4F SI = $F27B TAPEPNT = $F7BC WR1 = $FED4 
PCINC2 = $FAAD RAR = $ElDE RTN9 = $EB71 SsTı = $Fß23 TEMP1 = $0093 WRBIT = $FCD6 
PCINC3 = $FAAF RARY = $E298 RTNH = $092D sI2 = $Fß26 TEMP2 = $0098 WRBYT2 = $FEEF 
PCL = $DD3A RD1 = $EFCC RTNJMP = $FADl SI3 = $Fß33 TEMP3 = $DMD8A WRBYTE = $FEED 
PDL = $DFCD RD2 = $EFE7 RTNL = $B92C SIGN = $Pp2F TEMPPT = $9652 WRITE = $FECD 
PECHR = $DCAC RD2 = $FFOA RTNwoGSB = $D276 SIGN = $EB82 TEMST = $9955 WRTAPE = $FCE5 
PEEK = $E764 RD2BIT = $FCFA RTS1 = $F489 SIGN1 = $EB86 TEND = $EESD WT2 = $E793 
PENCHR = $DC4B RD3 = $FF16 RTS1 = $F831 SIGN2 = $EB88 TEXT = $F399 WT3 = $E797 
PICK = $0095 RDBIT = $FCFD RTS2 = $F60P SIGNFLG = $P@16 TMPEXP = $9999 X®H = $OPEl 
PIdoub = $F@6B RDBYT2_ = $FCEE RTS2 = $F96l SIGNIF = $ES2E TOK? = $D588 XOL = $ODEP 
PIhalf = $Fß66 RDBYTE = $FCEC RTS2B = $FBEF SIN = $EFFl TOKDONE = $D75F xl = $EF19 
PLOT = $F225 RDCHAR = $FD35 RTS2D = $FB2E SINSER = $Fß75 TOKEN?_ = $D734 x2 = $EF27 
PLOT = $F8ß9 RDKEY = $FDC RTS3 = $F6F5 SK2 = $D5FD TOKLP = $D749 X3 = $EF37 
PLOT1 = $F8PE RDSP1 = $FAE4 RTS3 = $FBFC SKIP = $DE64 TOKLUP = $D755 XAM = $FDB3 
PLOTFNS = $FIEC READ = $DBE2 RTS4 = $FC2B SKIPTOK = $D5F9 TOKTABL = $DPDp XAM8 = $FDA3 
PLU? = $D694 READ = $FEFD RTS4B = $FCC8 SKP =: $DC57 TOSUB = $FFBE XAMPM = $FDC6 
PLUS = $DACD READERR = $DB7B RTSAC = $FDC5 SKPTK = $D746 TR1 = $D81D XBASIC = $FEB® 
PLUSEPS = $E8C6 REASON = $D3E3 RTS5 = $FEl7 SKPV = $DDP2 TRACE = $F26D XBRK = $FA9C 
PNTR = $oB0F RECALL = $F3BC RUN = $D912 SL1 - $F796 TRACE = $FEC2 XDRAW = $F76F 
PNTSTK = $EE5F REENT = $DCEF RUNLINE = $D91B SL2 = $FTA® TRACE? = $D8ß5 XDRAW® = $F65D 
POINT = $E73D REGDSP = $FAD7 SAMEFOR? = $D37F SL3 = $F7A3 TRCFLG = $ppF2 XDRAWl = $F661 
POKE = $E77B REGZ = $FEBF SAVl = $FFAC SLI = $F3AF TRUE = $DF6P XDRAW2 = $F682 
POP = $D9Y6B RELADR = $F938 SAVDIM = $EIE7 SNDQ? = $DCIF TRUE? = $D9YD8 XDRAW3 = $F68C 
POS = $E2FF REM = $D9YDC SAVE = $D8BP SNGFLT = $E3ß1 TVAR = $E4AQ XDRAWA = $F699 
POSOP = $DF65 REM? = $D5E2 SAVE = $FFAA SNTXERR = $DEßD TWOBRK = $Eß9A XDRAW5 = $F6A4 
PRAl = $FD92 REMN = $D9YA6 SAVOLD = $E378 SPC? = $DB21 TXPSV = $0987 XJMP = $FAC4A 
PRADRl = $F91® REMSTK = $p0F8 SAVOP = $DDD7 SPEED = $F262 TXTCLR = $cß58 XJMPAT = $FAC5 
PRADR2 = $F914 RES>FAC = $EAE6 SAVY = $EEß9 SPEEDZ = $P@rFl TXTPSV = $ßpßF4 XJSR = $FABY 
PRADR3 = $F926 RESET = $FF59 SCALE = $F727 SPKR = $C939 TXTPTR = $@@B8 xql = $FA78 
PRADRA = $F9Y2A RESPERR = $DB87 SCALEZ = $ßPE7 SPNT = $0949 TXTSET = $co051 x02 = SFATA 
PRADR5S = $F93ß RESTART = $D43C SCDCH = $EPSD SQR - $EESD TXTTAB = $0067 XQINIT = $FA4E 
PRBL2 = $FY4A RESTORE = $D849 SCR = $F871 SQRhalf = $E92D TYPEMISS = $D393 XQT = $003C 
PRBL3 = $FYAC RESTORE = $FF3F SCREEN = $DEF9Y SQRtwo = $E932 UNARY = $DFÖC XQTNZ = $p03C 
PRBLNK = $F948 RESTRl = $FF44 SCRL1 = $FC76 ss = $EF85 UNDERR = $D9TC XREG = $0046 
PRBYTE = $FDDA RESULT = $@g62 SCRL2 = $FCEC SSF = $D5Eß UNDFNC = $E3ßE XRTI = $FAA5 
PREAD = $FBIE RESUME = $F318 SCRL3 = $FC95 ST — $DESA UNDFUNC = $D34ß XRTS = $FAA9 
PREAD2 = $FB25 RETL = $D392 SCRN = $F871 STACK = $0199 UNDSTAT = $D2BA XTNDH = $0053 
PREFNC = $DDF6 RET1® = $DBß2 SCRN2 = $F879 STATUS = $9048 UNFNC = $DP8P XTNDL = $0052 
PREFTEST = $DDCD RETI1 = $DCDE SCROLL = $FC7® STE = $ED6ß UP = $F4D5 Yo = $ppE2 
PRERR = $FF2D RET12 = $DD73 SCRTCH = $D64B STEP = $D7AF UP = $FC1lA YREG = $0947 
PRGEND = $PpAF RET2 = $DAPF SE = $D578 STEP = $FA43 uP1 = $F4EB YSAV = $0034 
PRHEX = $FDE3 RET3 = $D648 SEND = $DB64 STEPZ = $FECA UP2 = $FAFB YSAVl = $0935 
PRHEXZ = $FDE5 RET4A = $D696 SENDCHR = $D7ß2 STEX - $EDß5 UP3 = $FAFD ZARY = $E21A 
PRINT = $DAD5 RET5 = $D857 SERIES = $EF72 STKINI = $D683 UP4 = $FAFF ZEND = $E408 
PRINT2 = $DAD7 RET6 = $D8AF SERLEN = $ppA3 STOADV = $FBF® UP5 = $F4F6 ZERDLY = $FCDB 
PRMN1 = $F8F5 RET7 = $DY6A SERLOOP = $EF89 STOP = $D86E UPDOWN = $F4D3 ZERO = $EA31 
PRMN2 = $F8FY RET8 = $D9YA2 SERMAIN = $EF76 STOR = $FEßB UPDWNl = $F5ß@1 ZEROFAC = $ES4E 
PRNTAX = $F94l RET9Y = $DA@B SERPNT = $ß®AD STORE = $F39F USR = $DDDA ZF = $DBEY 
PRNTBL = $F8DB RETURN = $D984 SETCOL = $F864 STR = $E3C5 ZFAC = $ECAB 
PRNTFAC = $ED2E REdimARR = $D2D8 SETDA = $D853 STRCMP = $DF7D ZLUP = $E229 
PRNTIN? = $D431 RGDSPl = $FADA SETDP = $ECY8 STREND = $ßp6D ZMODE = $FFC7 
PRNTOP = $F8D4 RIGHT = $FA8A SETEND = $D3B7 STRINI = $E3D5 ZPSTUFF = $F10B 
PRNTX = $F944 RIGHTSTR = $E686 SETFOR = $EB27 STRIP = $D541 

PRNTYX = $F949 RM1 = $DIYAE SETGR = $FB4® STRLIT = $E3E7 

PRNU = $F1E5 RM2 = $D9YB6 SETHI = $F299 STRLT2 = $E3ED 

PROGIO = $D9ß1 RMNEM = $092D SETHPG = $F3EA STRNGl = $ßpAB VARNAM = $ppsl 

PROMPT = $9933 RND = $EFAE SETIFLG = $FE86 STRNG2 = $PpAD VARNXT = $DCFF 
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Verkauf Software 


Astrologieprogramme. Info n. 
Voreinsendung 1 DM in Briefmar- 
ken. C. Landscheidt, Im Dorfe 14, 
2804 Lilienthal. 


Apple Il-Programmgenerator für 
Eingabemasken 59,-—. DATEIVER- 
WALTUNG m. Editor, Grafik, Listen- 
paket 65,-. Info —,80 bei: 
FAHRENBERG, Rittershausstr. 4, 
5300 Bonn 1 


Multi Tools, 20 leistungsstarke 
Assemblerutilities für II +, e,c 60,—, 
programmierbare Laufschrift für 
Werbung u.ä. 30,-. C. F. Mahr, 
Waldackerweg 71, 7300 Esslingen 


SIDEWAYS für Apple und IBM 
druckt Kalkulationstabellen und 
Texte um 90 Grad gedreht. 
SIDEWAYS kostet ab Lager nur 
DM 250 plus MwSt. bei LUCIUS 
Computer-Programme, Th.-Kör- 
ner-Str. 5C, 4220 Dinslaken, 
02134/52782 








160-Track-Besitzer aufgepaßt: 16- 
Sekt-Copyprg / einfache Bedien / 
in Masch / jede Trackzahl möglich! 
Rüter, Rahdener Str. 65, 4955 Hille 


Ankauf Software 


Suche für Apple-Il Fortran-77 und 
Fortran-80 mit Anleitungen 
Tel.: 05251/91624 


Verkauf Hardware 


TEAC 55F 600,- 55B 550,- * 
SSDD 10 St 42,- 96 tpi DS 78,- 
Lochverst. europ. Markenw. x Box 
Rglas. Schl. für 40-42,- für 80- 
49,— x» Monitore 18Mhz 12” entsp. 
gr. ab 298,-. VICO, 

Selchower Str. 31, 1000 Bin 44 


Verk. Apple lle, 128K, 80 Z, 2 
Disk., Monitor, Drucker 8510 A, A- 
Writer, Visic., Datenbank usw., NP 
11500, VP 5500, Tel. 0209/ 
271070 ab 18h. 


peel 





örse 





Verkaufe APPLE Ilic + Monitor + 
Imagewriter — Tel. 094 09/933 


Apple Ilc mit 5 orig. Disk + 2 LW 
3 Mon. alt zvk. DM 3300,— VHS 
Tel. 07253/3714. 


APPLE-Tastaturen werden durch 
BETA-Box zu frei programmierbar. 
Tastatur Info: Altenburg, Kampstr. 
20, 5014 Kerpen-3, Preis ab 215,— 


APPLE + Zubehör und Drucker 
Tel. 0421/358488 


X-Y Plotter DIN A3 
6 Farb X-Y Plotter mit Centronic 
Schnittstelle günstig zu verkaufen 
Tel.: 06303/4328. 


Biete Epson MX80 + Interf. 780,— 
Tel.: 07071/63136 


Compatibler im IBM-Look mit 
6502 + 280 CPU, 256K Ram Disk, 
2 160K TEAK-Laufwerke, abge- 
setzte Tastatur, VOICE-Genera- 
tor, Musik- und Printerinterface zu 
verkaufen — Tel.: 06303/4328 


== BUND 


==" Büroelektronik 
Keithstr. 26 : 1 Berlin 30 : ® 0 30-26 111 26 


Erscheinungs- und Anzeigen- 


== RUNDLU 


er IIIPPNP 


MACINTOSH 128KB neuwertig 
5999 DM IMAGEWRITER original 
verp. 1499 DM zu verkaufen. 

Tel. 06151/27147 


BASIS 108 Komplettsyst. CP/M 3. 
2 F122 Laufw. Preis DM 4100,-. 
PAL Karten DM 120,- 

Tel.: 02747/2999 


Disketten 5 1/4”, 1 D, zu 3,70 DM, 
EDV-Zubehör. G. Einbeck, Noriker 
Str. 19, Block 2, Nürnberg, Tel. 
09 11/460681, Mo-Fr 7 bis 12 Uhr. 


APPLE USERS 

Verkaufe deutsche Bedienungsan- 
leitung für den Imagewriter-Drucker. 
Tel.: 02 31/336023 nach 18 Uhr 


*%* APPLE-Bücher natürlich bei xx 
DV-Fachbuchhandlung M. Igelhaut, 
Hardenbergstr. 34, 8510 Fürth, Tel. 
0911/721443, GRATIS-INFO: AP 





===  Büroelektronik GmbH 
Bachstr. 104 : 2 HH 76 : ®& 0 40-220 1155 


Inserentenverzeichnis peeker 5/85 


Seite 


schlußtermine für peeker Bühler Elektronik, Baden-Baden . . . 2.2... 11 


CP/D EDV-Anlagen, Düsseldorf . . 2. 2 2020...87 
D.O.S. Computersysteme, Schwäbisch Hal . . . 11 
Erbrecht Computer Related Products, Hamburg . . . 23 
Hamburger Computerversand, Hamburg . . . . 47 
IBS Computertechnik, Bielefeld . . . 2... Be 
Interkom Electronic, Isernhagen . . . 2. 20.2....67 
Intus, Waldshut-Tiengen . . . 2 2 2 2020.0...68 
Klaus Jeschke, Kelkheim. . . 2. 2 22 20.20.0.97 
McGraw-Hill-Book, Hamburg . . 2 2 2020.20.0.47 
E.-W. Meyer, Frohnhausen . . . 2 2 2020.20...99 
Micromint, Erkrath . . 2 22mm nn... 689 
Ulf Mohwinkel Electronic, Leverkusen . . . ....715 
pandabooks, Berlin. . . 2 2 un nn nn... 688 
pandasoft, Berlin un .US 
r + r electronic, Heidelberg . 47 


Ausgabe Erscheinungs- 


termin 


Anzeigen- 
schluß 


20. 9.89 . 4.85 
24. 6.85 9.88 
22. 4,89 . 6.85 
26. 8.85 1:88 


23: 9,88 . 8.85 


85 Softline, Oberkirch . . : 2 2 2 m 222... 35 
Tewi Verlag, München. . . 2. 2.22 02020.20.16 
85 Uding Electronics, Menden . . . 2. 2 202020...18 


21. 10. 85 


23.11.08 


Vobis, Aachen 4. US 





78 Peeker 5/85 


Sie haben einen Apple... 


wir haben die und die 
Software... Hardware... 


uccessory 
unft 


BECRESOT 
unit 


ö RE VEREEE $ 
care Turner RE 





wir haben die und die 
Bucher... Zeitschriften... 
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Autorisierter @gappie Fachhändler MICROSOFT Distributor es 
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Markendiskette. Die Alternative zuden Namenlosen! 


Auch bei den Disketten machen sich "NoNames” breit. Was verbirgt sich in den weißen Kartons? Sie können es nicht wissen. Selbst wenn Sie 
einmal mit der Qualität zufrieden waren, was steckt beim nächsten Kauf in der namenlosen Packung? 


MULTILIFE 
Wendedisketten 


Mit 2 Schreib- 
schutzkerben und 

2 Indexlöchern. 
Geprüft für zweiseitige 
Benutzung durch 
Wenden bei einseiti- 
gen Laufwerken 

(z.B. APPLE, 
COMMODORE 1541). 


10 Stück im 
ec Tale], 
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U) 50 Stück MULTILIFE-Disketten 

DJ) 100 Stück MULTILIFE-Disketten 

zum Abruf in einem Jahr beginnend mit dem heutigen 
(Mindestabruf 10 Stück). 

Als ersten Abruf bitte ich um Lieferung von: 


x10Stück_ 


(Art.-Nr.)a__ 


x 10Stück __ (Art.-Nr.)ä& 


x10Stück __ 
Zwischensumme 


Endsumme 
Meine Anschrift: 





Name/Vorname 





Straße 
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(PLZ) Ort 


VORERINDONN 


, WE 


z 
z 
4 
gr 
z 
2 
er 
= 
“ 
er 


Vertrauen Sie deshalb einer Markendiskette! 
Denn an der Marke erkennen Sie die gleichblei- 
bende Qualität: MULTILIFE, die klassische Mar- 
kendiskette. Jede MULTILIFE-Diskette wird wäh- 
rend der Produktion über 100 Mal geprüft! 

Deshalb ist jede MULTILIFE 100% Error-free! 


Alle MULTILIFE-Disketten mit Mit- 
tellochverstärkung. Für noch 
EJate 0 011-1, 870 ETIT-TGBE-TITG 
bei häufigem Disketten- 

wechsel! 





